/[cmucl]/src/code/stream.lisp
ViewVC logotype

Diff of /src/code/stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by ram, Tue Aug 23 18:36:22 1994 UTC revision 1.22 by ram, Wed Sep 28 13:40:26 1994 UTC
# Line 275  Line 275 
275                   (incf index))                   (incf index))
276                  ((zerop index)                  ((zerop index)
277                   (done-with-fast-read-char)                   (done-with-fast-read-char)
278                   (return (eof-or-lose stream eof-errorp eof-value)))                   (return (values (eof-or-lose (in-synonym-of stream)
279                                                  eof-errorp eof-value)
280                                     t)))
281                  ;; since fast-read-char hit already the eof char, we                  ;; since fast-read-char hit already the eof char, we
282                  ;; shouldn't do another read-char                  ;; shouldn't do another read-char
283                  (t                  (t

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5