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

[mhenoch at common-lisp.net]

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)))