Changeset 11765
- Timestamp:
- 04/19/09 08:29:57 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
r11763 r11765 460 460 461 461 (when *compile-file-zip* 462 (let ((zipfile (concatenate 'string (namestring output-file) ".zip")) 463 (pathnames ())) 462 (let* ((type ;; Don't use ".zip", it'll result in an extension 463 ;; with a dot, which is rejected by NAMESTRING 464 (%format nil "~A~A" (pathname-type output-file) "-zip")) 465 (zipfile (namestring 466 (merge-pathnames (make-pathname :type type) 467 output-file))) 468 (pathnames ())) 464 469 (dotimes (i *class-number*) 465 470 (let* ((file-namestring (%format nil "~A-~D.cls"
Note: See TracChangeset
for help on using the changeset viewer.