X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=e3a1299db80c6fefca686c84fabaafc13326fb60;hb=0b96758f3645dff3e681d82cc97ddab1faae27ac;hp=0119d6ca79db464e0dbf01bd850a20674f5bf482;hpb=2b596efa9a6b08a22bbdcdf88198c5d2af1d0335;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 0119d6c..e3a1299 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -382,6 +382,7 @@
 ;;; Is UNIX-FILENAME the name of a file that we can execute?
 (defun unix-filename-is-executable-p (unix-filename)
   (declare (type simple-string unix-filename))
+  (setf unix-filename (coerce unix-filename 'base-string))
   (values (and (eq (sb-unix:unix-file-kind unix-filename) :file)
 	       (sb-unix:unix-access unix-filename sb-unix:x_ok))))