[STUMP] [PATCH] Fixed pathname-is-executable-p so that it works with SBCL 1.0.28.59+

[Juan M. Bello Rivas]

Signed-off-by: Juan M. Bello Rivas <address@hidden>
---
 wrappers.lisp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/wrappers.lisp b/wrappers.lisp
index fb5b7dc..44579c4 100644
--- a/wrappers.lisp
+++ b/wrappers.lisp
@@ -146,8 +146,8 @@
 (defun pathname-is-executable-p (pathname)
   "Return T if the pathname describes an executable file."
   #+sbcl
-  (let ((filename (coerce (sb-int:unix-namestring pathname) 'base-string)))
-    (and (eq (sb-unix:unix-file-kind filename) :file)
+  (let ((filename (coerce (sb-ext:native-namestring pathname) 'base-string)))
+    (and (eq (sb-impl::native-file-kind filename) :file)
          (sb-unix:unix-access filename sb-unix:x_ok)))
   ;; FIXME: this is not exactly perfect
   #+clisp
-- 
1.6.0.4