1 ;;; lib/organ/util.lisp --- Organ Utils 2 3 ;; 4 5 ;;; Code: 6 (in-package :organ) 7 8 (defun read-org-lines (&optional stream) 9 (apply #'vector 10 (loop for l = (read-line stream nil :eof) 11 until (eq l :eof) 12 collect l))) 13 14 (defun read-org-lines-from-string (str) 15 (with-input-from-string (s str) (read-org-lines s)))
