[zip-cvs] CVS update: zip/gray.lisp

[David Lichteblau]

Update of /project/zip/cvsroot/zip
In directory common-lisp.net:/tmp/cvs-serv25511

Modified Files:
	gray.lisp 
Log Message:
applied stream-write-sequence patch (untested).
Thanks to Edi Weitz and others.

Date: Thu Nov 24 22:26:51 2005
Author: dlichteblau

Index: zip/gray.lisp
diff -u zip/gray.lisp:1.2 zip/gray.lisp:1.3
--- zip/gray.lisp:1.2	Tue Apr  5 17:44:54 2005
+++ zip/gray.lisp	Thu Nov 24 22:26:51 2005
@@ -8,7 +8,7 @@
     #+sbcl ((stream buffer-output-stream) seq &optional (start 0) end)
     #+lispworks ((stream buffer-output-stream) seq start end)
     #-(or sbcl lispworks) ...
-  (replace (buf stream)
+  (replace (buf stream) seq
 	   :start1 (pos stream)
 	   :start2 start
 	   :end2 end))