From fd2e23eefa622b3a04cbb212a037fb84db534782 Mon Sep 17 00:00:00 2001 From: jgarcia Date: Sat, 17 Jun 2006 16:06:18 +0000 Subject: [PATCH] APROPOS is now insensitive to case differences. --- src/lsp/describe.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lsp/describe.lsp b/src/lsp/describe.lsp index bec604f25..3f0d71b80 100644 --- a/src/lsp/describe.lsp +++ b/src/lsp/describe.lsp @@ -544,10 +544,10 @@ inspect commands, or type '?' to the inspector." (setq string (string string)) (if package (do-symbols (symbol package) - (when (search string (string symbol)) + (when (search string (string symbol) :test #'char-equal) (setq f (or (print-doc symbol t) f)))) (do-all-symbols (symbol) - (when (search string (string symbol)) + (when (search string (string symbol) :test #'char-equal) (setq f (or (print-doc symbol t) f))))) (if f (format t "~&-----------------------------------------------------------------------------")