Author: mhenoch Date: Sat Jul 8 18:50:33 2006 New Revision: 19 Modified: cl-darcs/trunk/unreadable-stream.lisp Log: Clear EOF flag when something is unread Modified: cl-darcs/trunk/unreadable-stream.lisp ============================================================================== --- cl-darcs/trunk/unreadable-stream.lisp (original) +++ cl-darcs/trunk/unreadable-stream.lisp Sat Jul 8 18:50:33 2006 @@ -167,11 +167,13 @@ (defmethod unread-byte ((stream unreadable-stream) byte) "Store BYTE at the head of the unread buffer." + (setf (slot-value stream 'at-end-of-file) nil) (push byte (slot-value stream 'buffer))) (defmethod unread-sequence ((stream unreadable-stream) sequence) "Store SEQUENCE at the head of the unread buffer. It is assumed that SEQUENCE will not be modified." + (setf (slot-value stream 'at-end-of-file) nil) (with-slots (buffer) stream ;; Empty sequences must not be stored in the buffer. (unless (zerop (length sequence)) @@ -180,6 +182,7 @@ (defmethod unread-line ((stream unreadable-stream) line) "Store LINE with an appended newline at the head of the unread buffer. It is assumed that SEQUENCE will not be modified." + (setf (slot-value stream 'at-end-of-file) nil) (with-slots (buffer) stream ;; If the line is empty, just store a newline. (if (zerop (length line))