From dlichteblau at common-lisp.net  Fri Aug 11 13:47:45 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Fri, 11 Aug 2006 09:47:45 -0400 (EDT)
Subject: [zip-cvs] CVS zip
Message-ID: <20060811134745.2DAB1111DB@common-lisp.net>

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

Modified Files:
	zip.lisp 
Log Message:
:unspecific workaround for lispworks


--- /project/zip/cvsroot/zip/zip.lisp	2006/06/10 14:07:53	1.9
+++ /project/zip/cvsroot/zip/zip.lisp	2006/08/11 13:47:45	1.10
@@ -401,8 +401,11 @@
 	      (zipfile-entries ,zipfile))))
 
 (defun unzip (pathname target-directory &key (if-exists :error) verbose)
-  (when (or (pathname-name target-directory)
-            (pathname-type target-directory))
+  ;; <Xof> "When reading[1] the value of any pathname component, conforming
+  ;;       programs should be prepared for the value to be :unspecific."
+  (when (set-difference (list (pathname-name target-directory)
+                              (pathname-type target-directory))
+                        '(nil :unspecific))
     (error "pathname not a directory, lacks trailing slash?"))
   (with-zipfile (zip pathname)
     (do-zipfile-entries (name entry zip)



From dlichteblau at common-lisp.net  Mon Aug 14 07:52:13 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 14 Aug 2006 03:52:13 -0400 (EDT)
Subject: [zip-cvs] CVS zip
Message-ID: <20060814075213.7037E77002@common-lisp.net>

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