Changeset 13290

Timestamp:

05/24/11 12:24:46 (12 years ago)

Author:

Mark Evenson

Message:

Strip VERSION from the source location output by COMPILE-FILE.

ABCL currently outputs non-readable--by the Lisp reader--namestrings
for any PATHNAME with a non-NIL VERSION. With the recent fixes to how
ABCL deals with VERSION components by defaulting to the ANSI specified
:NEWEST in MERGE-PATHNAMES, this breaks ASDF compiliation which tends
to acculumlate such PATHNAMES in its labryinth of cross-implementation
TRUENAMIZE* and LISPIZE-PATHNAME invocations. Since VERSION doesn't
really have an effect on the filesystems that ABCL deals with we just
silently nip it to NIL before forming our FASL source location.

File:

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

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

@@ -537 +537 @@
     (with-open-file (in input-file :direction :input)
       (let* ((*compile-file-pathname* (pathname in))
-             (*compile-file-truename* (truename in))
+             (*compile-file-truename* (make-pathname :defaults (truename in)
+                                                     :version nil))
              (*source* *compile-file-truename*)
              (*class-number* 0)