From b3c92a0fbfb798fece099ee5b14e13f0cf2af1bd Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 8 Mar 1990 16:23:09 +0000 Subject: [PATCH] Put in fix from wlott for unread-char/read-line interaction lossage. --- code/fd-stream.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index 22a04cbeb..9a255f17b 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -606,9 +606,9 @@ (values (or (let ((sap (fd-stream-ibuf-sap stream)) (results (if (fd-stream-unread stream) - (prog1 - (string (fd-stream-unread stream)) - (setf (fd-stream-unread stream) nil))))) + (prog1 + (list (string (fd-stream-unread stream))) + (setf (fd-stream-unread stream) nil))))) (catch 'eof-input-catcher (loop (input-at-least stream 1) @@ -622,7 +622,7 @@ (end (or newline tail))) (push (string-from-sap sap head end) results) - + (when newline (setf eof nil) (setf (fd-stream-ibuf-head stream) @@ -636,8 +636,8 @@ (t (apply #'concatenate 'simple-string (nreverse results))))) (if eof-error-p - (error "EOF while reading ~S" stream) - eof-value)) + (error "EOF while reading ~S" stream) + eof-value)) eof))) -- GitLab