(#+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)
- #+sbcl (eq :directory (sb-unix:unix-file-kind (namestring path)))
#-(or allegro clisp cmu lispworks sbcl scl)
(probe-file path)))