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 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(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 @@
(incf index))
((zerop index)
(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
;; shouldn't do another read-char
(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