Changeset 15185
- Timestamp:
- Jan 26, 2012, 11:45:51 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/nfcomp.lisp
r15097 r15185 446 446 447 447 (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))) 449 450 (setq path (probe-file (merge-pathnames file *.lisp-pathname*)))) 450 451 (error 'file-error :pathname file :error-type "File ~S not found"))
Note: See TracChangeset
for help on using the changeset viewer.