Skip to content
Snippets Groups Projects
Commit 3219766a authored by ram's avatar ram
Browse files

In read-line, put the actual stream in the call to eof-or-lose, not the

original arg (which might be T or NIL.)
parent 95f6e7dc
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.21 1994/08/23 18:36:22 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.22 1994/09/28 13:40:26 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -275,7 +275,9 @@ ...@@ -275,7 +275,9 @@
(incf index)) (incf index))
((zerop index) ((zerop index)
(done-with-fast-read-char) (done-with-fast-read-char)
(return (eof-or-lose stream eof-errorp eof-value))) (return (values (eof-or-lose (in-synonym-of stream)
eof-errorp eof-value)
t)))
;; since fast-read-char hit already the eof char, we ;; since fast-read-char hit already the eof char, we
;; shouldn't do another read-char ;; shouldn't do another read-char
(t (t
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment