blob: a96ad3e5e2c2a52e33bc0df90c129a25debc11fd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- 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)))
|
