projects
/
vcs-tree.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Automated commit for debian release 0.3.2-3
[vcs-tree.git]
/
kmrcl-excerpt.lisp
diff --git
a/kmrcl-excerpt.lisp
b/kmrcl-excerpt.lisp
index d425d7101f683275f4ac5a2fe946ca1e3a4915c3..c24bb35438dd1bc8c0c3e1c86e1f2d76d830cb9a 100644
(file)
--- a/
kmrcl-excerpt.lisp
+++ b/
kmrcl-excerpt.lisp
@@
-90,8
+90,13
@@
(#+lisp=cl ext:probe-directory #-lisp=cl lisp:probe-directory
path)))
#+(or cmu scl) (eq :directory (unix:unix-file-kind (namestring path)))
(#+lisp=cl ext:probe-directory #-lisp=cl lisp:probe-directory
path)))
#+(or cmu scl) (eq :directory (unix:unix-file-kind (namestring path)))
+ #+sbcl
+ (let ((file-kind-fun
+ (or (find-symbol "NATIVE-FILE-KIND" :sb-impl)
+ (find-symbol "UNIX-FILE-KIND" :sb-unix))))
+ (when (eq :directory (funcall file-kind-fun (namestring path)))
+ path))
#+lispworks (lw:file-directory-p path)
#+lispworks (lw:file-directory-p path)
- #+sbcl (eq :directory (sb-unix:unix-file-kind (namestring path)))
#-(or allegro clisp cmu lispworks sbcl scl)
(probe-file path)))
#-(or allegro clisp cmu lispworks sbcl scl)
(probe-file path)))