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