Changeset 15484

Timestamp:

11/11/20 17:58:13 (3 years ago)

Author:

Mark Evenson

Message:

Actually use COMPILE-FILE-PATHNAME in COMPILE-FILE
(Robert Munyer)

Further fixes to <https://abcl.org/trac/ticket/476>.

From <​https://mailman.common-lisp.net/pipermail/armedbear-devel/2020-November/004166.html>.

File:

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

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

@@ -1023 +1023 @@
           (setf input-file pathname))))
     (setf output-file
-          (make-pathname :defaults
-                         (if output-file
-                             (merge-pathnames output-file
-                                              *default-pathname-defaults*)
-                             (compile-file-pathname input-file))
-                         :version nil))
+          (compile-file-pathname input-file :output-file output-file))
     (let* ((*output-file-pathname* output-file)
            (type (pathname-type output-file))