(defun unix-filename-is-executable-p (unix-filename)
(declare (type simple-string unix-filename))
(values (and (eq (sb-unix:unix-file-kind unix-filename) :file)
(defun unix-filename-is-executable-p (unix-filename)
(declare (type simple-string unix-filename))
(values (and (eq (sb-unix:unix-file-kind unix-filename) :file)