Changeset 5630

Timestamp:

Dec 18, 2006, 12:04:42 PM (18 years ago)

Author:

Gary Byers

Message:

Try (halfheartedly) to maintain PATHNAME-VERSION of physical
pathnames. (Totally meaningless, but failing to do this leads to many
test failures.)

File:

• trunk/ccl/level-1/l1-pathnames.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-pathnames.lisp

@@ -117 +117 @@
         ((null wild)
          t)
+        ((not (and (stringp name) (stringp wild)))
+         (eq name wild))
         (t (%path-str*= name wild))))
 
@@ -619 +621 @@
       (native-to-directory-pathname dirpath)
       (let* ((directory-containing-heap-image
-              (make-pathname :directory (pathname-directory *heap-image-name*)))
+              (make-pathname :directory (pathname-directory (%realpath *heap-image-name*))))
              (rpath (merge-pathnames
                      #+darwinppc-target "../Resources/ccl/"