[armedbear-cvs] r13295 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed May 25 07:31:50 2011
New Revision: 13295

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Tue May 24 05:25:55 2011	(r13294)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Wed May 25 07:31:50 2011	(r13295)
@@ -523,9 +523,12 @@
     (let ((pathname (merge-pathnames (make-pathname :type "lisp") input-file)))
       (when (probe-file pathname)
         (setf input-file pathname))))
-  (setf output-file (if output-file
-                        (merge-pathnames output-file *default-pathname-defaults*)
-                        (compile-file-pathname input-file)))
+  (setf output-file (make-pathname 
+		     :defaults (if output-file
+				   (merge-pathnames output-file 
+						    *default-pathname-defaults*)
+				   (compile-file-pathname input-file))
+		     :version nil))
   (let* ((*output-file-pathname* output-file)
          (type (pathname-type output-file))
          (temp-file (merge-pathnames (make-pathname :type (concatenate 'string type "-tmp"))
@@ -535,7 +538,8 @@
          (warnings-p nil)
          (failure-p nil))
     (with-open-file (in input-file :direction :input)
-      (let* ((*compile-file-pathname* (pathname in))
+      (let* ((*compile-file-pathname* (make-pathname :defaults (pathname in)
+						     :version nil))
              (*compile-file-truename* (make-pathname :defaults (truename in)
                                                      :version nil))
              (*source* *compile-file-truename*)