mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
18 lines
522 B
Diff
18 lines
522 B
Diff
diff --git a/zip.lisp.orig b/zip.lisp
|
|
index a2f3768..cb1d76a 100644
|
|
--- a/zip.lisp.orig
|
|
+++ b/zip.lisp
|
|
@@ -15,8 +15,12 @@
|
|
#o640
|
|
#-(or windows mswindows)
|
|
(progn
|
|
- #-(or sbcl allegro ccl)
|
|
+ #-(or ecl sbcl allegro ccl)
|
|
(error "ZIP::FILE-MODE not ported")
|
|
+ #+ecl
|
|
+ (if (cl-fad:directory-pathname-p pathname)
|
|
+ #o775
|
|
+ #o644)
|
|
#+ccl
|
|
(multiple-value-bind (win mode size mtime inode uid blocksize rmtime gid dev)
|
|
(ccl::%stat (ccl:native-translated-namestring pathname))
|