11 lines
477 B
Common Lisp
11 lines
477 B
Common Lisp
--- path.lisp.orig 2009-06-10 11:40:23.000000000 +0400
|
|
+++ path.lisp 2009-06-10 11:40:43.000000000 +0400
|
|
@@ -57,7 +57,7 @@
|
|
path)))
|
|
#+cmu (eq :directory (unix:unix-file-kind (namestring path)))
|
|
#+lispworks (lw:file-directory-p path)
|
|
- #+sbcl (eq :directory (sb-unix:unix-file-kind (namestring path)))
|
|
+ #+sbcl (eq :directory (native-file-kind (namestring path)))
|
|
#-(or allegro clisp cmu lispworks sbcl)
|
|
(probe-file path)))
|
|
|