r10060: have probe directory return path when T
authorKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 29 Sep 2004 15:23:57 +0000 (15:23 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 29 Sep 2004 15:23:57 +0000 (15:23 +0000)
impl.lisp

index 0b37c8b..c17449c 100644 (file)
--- a/impl.lisp
+++ b/impl.lisp
             (ignore-errors
               (#+lisp=cl ext:probe-directory #-lisp=cl lisp:probe-directory
                          path)))
-    #+(or cmu scl) (eq :directory (unix:unix-file-kind (namestring path)))
-    #+lispworks (lw:file-directory-p path)
-    #+sbcl (eq :directory (sb-unix:unix-file-kind (namestring path)))
+    #+(or cmu scl) (when (eq :directory (unix:unix-file-kind (namestring path)))
+                    path)
+    #+lispworks (when (lw:file-directory-p path)
+                 path)
+    #+sbcl (when (eq :directory (sb-unix:unix-file-kind (namestring path)))
+            path)
     #-(or allegro clisp cmu lispworks sbcl scl)
     (probe-file path)))