Changeset 833

Timestamp:

Jun 23, 2004, 10:30:54 AM (20 years ago)

Author:

Gary Byers

Message:

Gary King's fix to FIND-LOAD-FILE.

File:

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

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

@@ -980 +980 @@
 
 (defun find-load-file (file-name)
-  (let ((full-name (full-pathname file-name :no-error nil)))
+  (let ((full-name (full-pathname file-name :no-error nil))
+        (kind nil))
     (when full-name
       (let ((file-type (pathname-type full-name)))
@@ -997 +998 @@
                   (true-fasl
                    (values true-fasl fasl fasl))
-                  ((setq full-name (probe-file full-name))
-                   (values full-name file-name file-name)))))))))
+                  ((and (multiple-value-setq (full-name kind)
+                          (let* ((realpath (%realpath (native-translated-namestring full-name))))
+                            (if realpath
+                              (%probe-file-x realpath ))))
+                        (eq kind :file))
+                   (values full-name file-name file-name))))))))))