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)
