From 0cc7016622e04d0b162ebb741501b794a91ecfbe Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 3 Jun 2010 23:12:34 +0200 Subject: [PATCH] Adapt REQUIRE to the use of uppercase logical pathnames --- src/lsp/module.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/lsp/module.lsp b/src/lsp/module.lsp index e68470ad2..f84dc082a 100644 --- a/src/lsp/module.lsp +++ b/src/lsp/module.lsp @@ -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*)