Update domain name to kpe.io

[vcs-tree.git] / kmrcl-excerpt.lisp

diff --git a/kmrcl-excerpt.lisp b/kmrcl-excerpt.lisp
index d425d7101f683275f4ac5a2fe946ca1e3a4915c3..c24bb35438dd1bc8c0c3e1c86e1f2d76d830cb9a 100644 (file)
--- 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)))