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