X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=impl.lisp;h=c17449c088fb6a7b11d8755650d95a45d4519ac9;hp=0b37c8badc9b655f1f7c45777dc6f7b433cb1000;hb=d4bfdf559cbd44dee337d2d2fbb457bfe1cec56e;hpb=6ab952c17ac4beec2f239dda5e8cf062fc3824d2

diff --git a/impl.lisp b/impl.lisp
index 0b37c8b..c17449c 100644
--- 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)))