Changeset 15185

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:

• trunk/source/lib/nfcomp.lisp (modified) (1 diff)

trunk/source/lib/nfcomp.lisp

@@ -446 +446 @@
 
 (defun fcomp-find-file (file &aux path)
-  (unless (or (setq path (probe-file file))
+  (unless (or (and (setq path (probe-file file))
+                   (not (directoryp path)))
               (setq path (probe-file (merge-pathnames file *.lisp-pathname*))))
     (error 'file-error :pathname file :error-type "File ~S not found"))