Changeset 11765

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:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -460 +460 @@
 
         (when *compile-file-zip*
-          (let ((zipfile (concatenate 'string (namestring output-file) ".zip"))
-                (pathnames ()))
+          (let* ((type ;; Don't use ".zip", it'll result in an extension
+                       ;;  with a dot, which is rejected by NAMESTRING
+                  (%format nil "~A~A" (pathname-type output-file) "-zip"))
+                 (zipfile (namestring
+                           (merge-pathnames (make-pathname :type type)
+                                            output-file)))
+                 (pathnames ()))
             (dotimes (i *class-number*)
               (let* ((file-namestring (%format nil "~A-~D.cls"