Update of /project/zip/cvsroot/zip In directory common-lisp.net:/tmp/cvs-serv15067
Modified Files: sbcl.lisp Log Message: fixed stream-read-sequence method
Date: Sun Apr 3 22:41:37 2005 Author: dlichteblau
Index: zip/sbcl.lisp diff -u zip/sbcl.lisp:1.1.1.1 zip/sbcl.lisp:1.2 --- zip/sbcl.lisp:1.1.1.1 Sun Apr 3 21:36:28 2005 +++ zip/sbcl.lisp Sun Apr 3 22:41:37 2005 @@ -47,9 +47,12 @@
(defmethod sb-gray:stream-read-sequence ((s truncating-stream) seq &optional (start 0) (end (length seq))) - (let ((n (- end start)) - (max (- (size s) (pos s)))) - (read-sequence (input-handle s) - seq - :start start - :end (+ start (min n max))))) + (let* ((n (- end start)) + (max (- (size s) (pos s))) + (result + (read-sequence (input-handle s) + seq + :start start + :end (+ start (min n max))))) + (incf (pos s) (- result start)) + result))