From dlichteblau at common-lisp.net  Thu Nov 24 21:26:52 2005
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 24 Nov 2005 22:26:52 +0100 (CET)
Subject: [zip-cvs] CVS update: zip/gray.lisp 
Message-ID: <20051124212652.7212F880D5@common-lisp.net>

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