[Cl-darcs-cvs] r11 - cl-darcs/trunk

mhenoch at common-lisp.net mhenoch at common-lisp.net
Sat Jun 24 11:24:24 UTC 2006

Author: mhenoch
Date: Sat Jun 24 07:24:23 2006
New Revision: 11

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.
-#+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...
+(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)))

More information about the Cl-darcs-cvs mailing list