Author: mhenoch Date: Sat Jun 24 07:24:23 2006 New Revision: 11 Modified: cl-darcs/trunk/unreadable-stream.lisp Log: Comment read-binary-line method of unreadable-stream. Modified: cl-darcs/trunk/unreadable-stream.lisp ============================================================================== --- cl-darcs/trunk/unreadable-stream.lisp (original) +++ cl-darcs/trunk/unreadable-stream.lisp Sat Jun 24 07:24:23 2006 @@ -101,7 +101,11 @@ ;; Otherwise, report that the sequence is full. end))) -#+nil (defmethod read-binary-line ((stream unreadable-stream) &optional (eof-error-p t) eof-value) +;; This method is meant as an optimization, but it actually makes +;; things slower. Need to investigate why... +#+nil +(defmethod read-binary-line :around ((stream unreadable-stream) &optional (eof-error-p t) eof-value) + "If possible, return a recently unread line." ;; If a line has been unread, we just return it. (with-slots (buffer) stream (let ((buffer-entry (car buffer)))