Changeset 15185


Ignore:
Timestamp:
Jan 26, 2012, 11:45:51 PM (8 years ago)
Author:
rme
Message:

Tweak FCOMP-FIND-FILE. If there is both a directory "foo" and a file
"foo.lisp", we don't want to use the directory "foo" as the source
file.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/nfcomp.lisp

    r15097 r15185  
    446446
    447447(defun fcomp-find-file (file &aux path)
    448   (unless (or (setq path (probe-file file))
     448  (unless (or (and (setq path (probe-file file))
     449                   (not (directoryp path)))
    449450              (setq path (probe-file (merge-pathnames file *.lisp-pathname*))))
    450451    (error 'file-error :pathname file :error-type "File ~S not found"))
Note: See TracChangeset for help on using the changeset viewer.