[zip-cvs] CVS zip

[dlichteblau]

Update of /project/zip/cvsroot/zip
In directory clnet:/tmp/cvs-serv14577

Modified Files:
	gray.lisp 
Log Message:
another stupid bug in the gray stream port


--- /project/zip/cvsroot/zip/gray.lisp	2005/11/24 21:26:51	1.3
+++ /project/zip/cvsroot/zip/gray.lisp	2006/03/14 21:48:06	1.4
@@ -5,13 +5,15 @@
      (pos :initform 0 :accessor pos)))
 
 (defmethod stream-write-sequence
-    #+sbcl ((stream buffer-output-stream) seq &optional (start 0) end)
+    #+sbcl ((stream buffer-output-stream) seq &optional (start 0) (end (length seq)))
     #+lispworks ((stream buffer-output-stream) seq start end)
     #-(or sbcl lispworks) ...
   (replace (buf stream) seq
 	   :start1 (pos stream)
 	   :start2 start
-	   :end2 end))
+	   :end2 end)
+  (incf (pos stream) (- end start))
+  seq)
 
 (defun make-buffer-output-stream (outbuf)
   (make-instance 'buffer-output-stream :buf outbuf))