- ;; that's noncompliant
- for fullpath = (merge-pathnames
- pathname (truename
- (subseq search-path start end)))
- when (unix-filename-is-executable-p (namestring fullpath))
+ ;; that's noncompliant -- CSR, c. 2003-08-10
+ for truename = (probe-file (subseq search-path start end))
+ for fullpath = (when truename (merge-pathnames pathname truename))
+ when (and fullpath
+ (unix-filename-is-executable-p (namestring fullpath)))