[zip-cvs] CVS zip

[dlichteblau]

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

Modified Files:
	gray.lisp 
Log Message:
From: Edi Weitz <edi at agharta.de>
Subject: Typo in STREAM-READ-SEQUENCE  (Was: NIL vs. :UNSPECIFIC)


--- /project/zip/cvsroot/zip/gray.lisp	2006/04/12 20:35:33	1.7
+++ /project/zip/cvsroot/zip/gray.lisp	2006/08/14 07:52:13	1.8
@@ -61,11 +61,11 @@
 
 (defmethod stream-read-sequence ((s truncating-stream) seq start end &key)
   (let* ((n (- end start))
-	 (max (- (size s) (pos s)))
-	 (result
-	  (read-sequence (input-handle s)
-			 seq
-			 :start start
-			 :end (+ start (min n max)))))
+        (max (- (size s) (pos s)))
+        (result
+         (read-sequence seq
+                        (input-handle s)
+                        :start start
+                        :end (+ start (min n max)))))
     (incf (pos s) (- result start))
     result))