Corrected check-directories-exist.

Pascal J. Bourguignon [2019-02-14 03:21]
Corrected check-directories-exist.
Filename
common-lisp/interactive/browser.lisp
diff --git a/common-lisp/interactive/browser.lisp b/common-lisp/interactive/browser.lisp
index 9d672e9..4b35cad 100644
--- a/common-lisp/interactive/browser.lisp
+++ b/common-lisp/interactive/browser.lisp
@@ -251,12 +251,12 @@ three synchronized.
               ;; probe-file to test directories in ccl…


-              (ignore-errors
-               (or
-                #-ccl (directory (make-pathname :directory dir :name "RARE" :type "RARE" :defaults path))
-                #+ccl (probe-file path)
-                t))
-              )
+              (let ((probe-dirpath (make-pathname :name :unspecific :type :unspecific :version :unspecific
+                                                  :directory dir
+                                                  :defaults path)))
+                #+ccl (probe-file probe-dirpath)
+                #-ccl (ignore-errors (or (directory (merge-pathnames "PROBE.FILE" probe-dirpath nil))
+                                         t))))
             (nreverse
              (loop
                :for dir :on (reverse (pathname-directory path))
ViewGit