[zip-cvs] CVS update: zip/zip.lisp

[David Lichteblau]

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