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