Ignore:
Timestamp:
12/18/11 21:08:13 (10 years ago)
Author:
Mark Evenson
Message:

Fix #181: TRUENAME doesn't always canonicalize the outer DEVICE component of JAR-PATHNAME.

If *DEFAULT-PATHNAME-DEFAULTS* is a JAR-PATHNAME, then TRUENAME will
not attempt to canonicalize the outer DEVICE component of a JAR-PATHNAME.

Remove corresponding kludge from ASDF.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/jar-pathname.lisp

    r13698 r13704  
    485485;;; TODO Make reasons for failure more clear
    486486(deftest jar-pathname.truename.1
    487     (let* ((abcl (slot-value (asdf:find-system 'abcl) 'asdf::absolute-pathname))
    488            (jar (pathname (format nil "jar:file:~A/dist/abcl-contrib.jar!/jss/jss.asd" (namestring abcl))))
    489            (jar-dir (make-pathname :defaults jar :name nil :type nil))
    490            (defaults *default-pathname-defaults*))
    491       (let ((*default-pathname-defaults* jar-dir))
    492         (not (probe-file (merge-pathnames jar)))))
     487    (let* ((abcl
     488            (slot-value (asdf:find-system 'abcl) 'asdf::absolute-pathname))
     489           (jar-entry
     490            (pathname (format nil "jar:file:~A/dist/abcl-contrib.jar!/jss/jss.asd" (namestring abcl))))
     491           (jar-entry-dir
     492            (make-pathname :defaults jar-entry :name nil :type nil))
     493           (defaults
     494            *default-pathname-defaults*))
     495      (let ((*default-pathname-defaults* jar-entry-dir))
     496        (not (probe-file (merge-pathnames jar-entry)))))
    493497  nil)
    494498 
Note: See TracChangeset for help on using the changeset viewer.