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