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