Changeset 5581

Timestamp:

Dec 4, 2006, 8:19:47 AM (18 years ago)

Author:

Gary Byers

Message:

Derive ccl-directory from pathname containing heap image.

File:

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

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

@@ -618 +618 @@
     (if dirpath
       (native-to-directory-pathname dirpath)
-      (let* ((rpath (merge-pathnames
+      (let* ((directory-containing-heap-image
+              (make-pathname :directory (pathname-directory *heap-image-name*)))
+             (rpath (merge-pathnames
                      #+darwinppc-target "../Resources/ccl/"
                      #+linux-target "Resources/ccl/"
-                     (make-pathname
-                      :directory
-                      (pathname-directory (car *command-line-argument-list*))))))
+                     directory-containing-heap-image)))
         (or (probe-file rpath)
-            (mac-default-directory))))))
+            directory-containing-heap-image)))))