Update of /project/zip/cvsroot/zip In directory common-lisp.net:/tmp/cvs-serv17335
Modified Files: zip.lisp Log Message: fixed unzip on allegro set version to 2.0
Date: Tue Apr 5 20:18:34 2005 Author: dlichteblau
Index: zip/zip.lisp diff -u zip/zip.lisp:1.4 zip/zip.lisp:1.5 --- zip/zip.lisp:1.4 Tue Apr 5 17:04:33 2005 +++ zip/zip.lisp Tue Apr 5 20:18:33 2005 @@ -212,7 +212,9 @@ (defun open-zipfile (pathname &key (external-format (default-external-format))) (let* (#+allegro (excl:*locale* (excl:find-locale :latin1)) - (s (open pathname :element-type '(unsigned-byte 8)))) + (s (open pathname + #-allegro :element-type + #-allegro '(unsigned-byte 8)))) (unwind-protect (progn (seek-to-end-header s) @@ -290,7 +292,7 @@ (let ((header (zipwriter-entry-header e)) (entry (make-directory-entry))) (setf (cd/signature entry) #x02014b50) - (setf (cd/version-made-by entry) 0) ;dos compatible + (setf (cd/version-made-by entry) 20) ;version 2.0, fat (setf (cd/version-needed-to-extract entry) (file/version-needed-to-extract header)) (setf (cd/flags entry) (file/flags header))