dev-lisp/cl-acl-compat/files/1.2.27.2003.09.19-lw-buffering.lisp-gentoo.patch


1
2
3
4
5
6
7
8
9
10
11
12

diff -ur cl-portable-aserve-1.2.27+cvs2003.09.19.orig/acl-compat/lw-buffering.lisp cl-portable-aserve-1.2.27+cvs2003.09.19/acl-compat/lw-buffering.lisp
--- cl-portable-aserve-1.2.27+cvs2003.09.19.orig/acl-compat/lw-buffering.lisp	2003-09-05 00:51:32.000000000 -0500
+++ cl-portable-aserve-1.2.27+cvs2003.09.19/acl-compat/lw-buffering.lisp	2003-10-14 14:47:19.819153352 -0500
@@ -261,7 +261,7 @@
   (stream-flush-buffer stream)
   (force-output (native-lisp-stream stream)))
 
-(defmethod stream-clear-output ((stream buffered-bivalent-output-stream))
+#-sbcl (defmethod stream-clear-output ((stream buffered-bivalent-output-stream))
   (with-stream-output-buffer (buffer index limit) stream
      (setf index 0
            limit 0))