Changeset 13295


Ignore:
Timestamp:
05/25/11 14:31:50 (10 years ago)
Author:
Mark Evenson
Message:

Fix COMPILE-FILE to use paths that have a printable representation.

File:
1 edited

Legend:

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

    r13290 r13295  
    524524      (when (probe-file pathname)
    525525        (setf input-file pathname))))
    526   (setf output-file (if output-file
    527                         (merge-pathnames output-file *default-pathname-defaults*)
    528                         (compile-file-pathname input-file)))
     526  (setf output-file (make-pathname
     527         :defaults (if output-file
     528           (merge-pathnames output-file
     529                *default-pathname-defaults*)
     530           (compile-file-pathname input-file))
     531         :version nil))
    529532  (let* ((*output-file-pathname* output-file)
    530533         (type (pathname-type output-file))
     
    536539         (failure-p nil))
    537540    (with-open-file (in input-file :direction :input)
    538       (let* ((*compile-file-pathname* (pathname in))
     541      (let* ((*compile-file-pathname* (make-pathname :defaults (pathname in)
     542                 :version nil))
    539543             (*compile-file-truename* (make-pathname :defaults (truename in)
    540544                                                     :version nil))
Note: See TracChangeset for help on using the changeset viewer.