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

The output of the module-provider has to be T if it succeeded

Browse source
This commit is contained in:
jjgarcia 2005-02-17 13:26:03 +00:00
parent 80e4cedae0
commit a67b205a58
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/lsp/module.lsp
View file

@ -68,8 +68,9 @@
(pushnew #'(lambda (module)
(let* ((sysdir (translate-logical-pathname #P"SYS:"))
(module (string module)))
(let ((path (merge-pathnames (make-pathname :name module) sysdir)))
(if (probe-file path) (load path)))
(let ((path (merge-pathnames (make-pathname :name (string-downcase module)) sysdir)))
(if (probe-file path) (load path)))))
(or
(let ((path (merge-pathnames (make-pathname :name module) sysdir)))
(if (probe-file path) (load path)))
(let ((path (merge-pathnames (make-pathname :name (string-downcase module)) sysdir)))
(if (probe-file path) (load path))))))
*module-provider-functions*)