From a67b205a5888cc02cb6cb53edac54a92a5d4e641 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Thu, 17 Feb 2005 13:26:03 +0000 Subject: [PATCH] The output of the module-provider has to be T if it succeeded --- src/lsp/module.lsp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/lsp/module.lsp b/src/lsp/module.lsp index 908b7e663..1a7102e72 100644 --- a/src/lsp/module.lsp +++ b/src/lsp/module.lsp @@ -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*)