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*)