mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Adapt REQUIRE to the use of uppercase logical pathnames

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-06-03 23:12:34 +02:00
parent b7fff42173
commit 0cc7016622
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lsp/module.lsp
View file

@ -68,11 +68,11 @@ module."
(set-difference *modules* saved-modules))))
(pushnew #'(lambda (module)
(let* ((sysdir (translate-logical-pathname #P"SYS:"))
(module (string module)))
(let* ((module (string module)))
(or
(let ((path (merge-pathnames (make-pathname :name module) sysdir)))
(let ((path (make-pathname :name module :defaults "SYS:")))
(load path :if-does-not-exist nil))
(let ((path (merge-pathnames (make-pathname :name (string-downcase module)) sysdir)))
(let ((path (make-pathname :name (string-downcase module)
:defaults "SYS:")))
(load path :if-does-not-exist nil)))))
*module-provider-functions*)