From d4bfdf559cbd44dee337d2d2fbb457bfe1cec56e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 29 Sep 2004 15:23:57 +0000 Subject: [PATCH] r10060: have probe directory return path when T --- impl.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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))) -- 2.34.1