X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=aee63b8bb13482512eb2cbd92b97a9e29ed106aa;hb=6c4d4d984b1af6b2a73568cec3ab9c8795cff2da;hp=372fe263de93bbec0c7d6a3fc5ff5ed42e1ebb9f;hpb=0d669e68a1ffbea42af6216f2ae8c7d7ca12ffb6;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 372fe26..aee63b8 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -425,6 +425,7 @@
   (stderr sb-alien:int))
 
 ;;; Is UNIX-FILENAME the name of a file that we can execute?
+;;; XXX does this actually work for symlinks?
 (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)