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

Diff of /src/code/fd-stream.lisp

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

revision 1.2 by ram, Thu Mar 8 11:04:53 1990 UTC revision 1.3 by ram, Thu Mar 8 16:23:09 1990 UTC
# Line 606  Line 606 
606      (values      (values
607       (or (let ((sap (fd-stream-ibuf-sap stream))       (or (let ((sap (fd-stream-ibuf-sap stream))
608                 (results (if (fd-stream-unread stream)                 (results (if (fd-stream-unread stream)
609                            (prog1                              (prog1
610                                (string (fd-stream-unread stream))                                  (list (string (fd-stream-unread stream)))
611                              (setf (fd-stream-unread stream) nil)))))                                (setf (fd-stream-unread stream) nil)))))
612             (catch 'eof-input-catcher             (catch 'eof-input-catcher
613               (loop               (loop
614                 (input-at-least stream 1)                 (input-at-least stream 1)
# Line 622  Line 622 
622                        (end (or newline tail)))                        (end (or newline tail)))
623                   (push (string-from-sap sap head end)                   (push (string-from-sap sap head end)
624                         results)                         results)
625    
626                   (when newline                   (when newline
627                     (setf eof nil)                     (setf eof nil)
628                     (setf (fd-stream-ibuf-head stream)                     (setf (fd-stream-ibuf-head stream)
# Line 636  Line 636 
636                   (t                   (t
637                    (apply #'concatenate 'simple-string (nreverse results)))))                    (apply #'concatenate 'simple-string (nreverse results)))))
638           (if eof-error-p           (if eof-error-p
639             (error "EOF while reading ~S" stream)               (error "EOF while reading ~S" stream)
640             eof-value))               eof-value))
641       eof)))       eof)))
642    
643    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5