Changeset 11765


Ignore:
Timestamp:
04/19/09 08:29:57 (14 years ago)
Author:
ehuelsmann
Message:

Use pathname "calculations" to determine the output file name
for the ZIP archive which is to become the .ABCL file.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r11763 r11765  
    460460
    461461        (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 ()))
    464469            (dotimes (i *class-number*)
    465470              (let* ((file-namestring (%format nil "~A-~D.cls"
Note: See TracChangeset for help on using the changeset viewer.