mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

TRUENAME will fail if the file does not exist

Browse source
This commit is contained in:
jjgarcia 2005-02-21 12:44:25 +00:00
parent 2624a02fc2
commit abe8ae3e85
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/ffi.lsp
View file

@ -579,7 +579,7 @@
(dolist (p directories)
(dolist (n names)
(dolist (e types)
(let ((full-path (truename (make-pathname
(let ((full-path (probe-file (make-pathname
:device d
:directory (etypecase p
(pathname (pathname-directory p))
@ -587,7 +587,7 @@
(list p))
:name n
:type e))))
(when (probe-file full-path)
(when full-path
(return-from find-foreign-library full-path))
)))))
nil)