[zip-cvs] CVS update: zip/sbcl.lisp

[David Lichteblau]

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