X-Git-Url: http://git.kpe.io/?p=vcs-tree.git;a=blobdiff_plain;f=kmrcl-excerpt.lisp;h=c24bb35438dd1bc8c0c3e1c86e1f2d76d830cb9a;hp=d425d7101f683275f4ac5a2fe946ca1e3a4915c3;hb=HEAD;hpb=07ed07c71c97ed1741d2d7ff4d5244dcb6c70907

diff --git a/kmrcl-excerpt.lisp b/kmrcl-excerpt.lisp
index d425d71..c24bb35 100644
--- 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)))
+    #+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)))