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