Changeset 15484


Ignore:
Timestamp:
11/11/20 17:58:13 (2 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:
1 edited

Legend:

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

    r15483 r15484  
    10231023          (setf input-file pathname))))
    10241024    (setf output-file
    1025           (make-pathname :defaults
    1026                          (if output-file
    1027                              (merge-pathnames output-file
    1028                                               *default-pathname-defaults*)
    1029                              (compile-file-pathname input-file))
    1030                          :version nil))
     1025          (compile-file-pathname input-file :output-file output-file))
    10311026    (let* ((*output-file-pathname* output-file)
    10321027           (type (pathname-type output-file))
Note: See TracChangeset for help on using the changeset viewer.