Update of /project/zip/cvsroot/zip In directory clnet:/tmp/cvs-serv14138
Modified Files: gray.lisp Log Message: From: Edi Weitz edi@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))