projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6ab952c
)
r10060: have probe directory return path when T
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 29 Sep 2004 15:23:57 +0000
(15:23 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 29 Sep 2004 15:23:57 +0000
(15:23 +0000)
impl.lisp
patch
|
blob
|
history
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)))
(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)))
#-(or allegro clisp cmu lispworks sbcl scl)
(probe-file path)))