From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 29 Sep 2004 15:23:57 +0000 (+0000)
Subject: r10060: have probe directory return path when T
X-Git-Tag: v1.96~54
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=d4bfdf559cbd44dee337d2d2fbb457bfe1cec56e

r10060: have probe directory return path when T
---

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)))