[zip-cvs] CVS zip

[dlichteblau]

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)