1.1--- a/lisp/lib/organ/util.lisp	Sun Mar 17 00:33:50 2024 -0400
     1.2+++ b/lisp/lib/organ/util.lisp	Sun Mar 17 18:29:37 2024 -0400
     1.3@@ -8,20 +8,20 @@
     1.4 (defun peek-line (stream)
     1.5   (concatenate 
     1.6    'string 
     1.7-   (loop for c = (peek-char nil stream nil :eof)
     1.8-         until (char= c #\newline)
     1.9+   (loop for c = (peek-char nil stream nil)
    1.10+         until (or (not c) (char= c #\newline))
    1.11          collect c)))
    1.12 
    1.13 (defun read-until-end (stream)
    1.14   (with-output-to-string (s)
    1.15-    (loop for c = (read-char stream nil :eof)
    1.16-          until (eql c :eof)
    1.17+    (loop for c = (read-char stream nil)
    1.18+          until (not c)
    1.19           do (write-char c s))))
    1.20 
    1.21 (defun read-org-lines (&optional stream)
    1.22   (apply #'vector
    1.23-	 (loop for l = (read-line stream nil :eof)
    1.24-	       until (eq l :eof)
    1.25+	 (loop for l = (read-line stream nil)
    1.26+	       until (not l)
    1.27 	       collect l)))
    1.28 
    1.29 (defun read-org-lines-from-string (str)