r10060: have probe directory return path when T

diff --git a/impl.lisp b/impl.lisp
index 0b37c8badc9b655f1f7c45777dc6f7b433cb1000..c17449c088fb6a7b11d8755650d95a45d4519ac9 100644 (file)
--- a/impl.lisp
+++ b/impl.lisp
@@ -44,9 +44,12 @@
             (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)))