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

APROPOS is now insensitive to case differences.

Browse source
This commit is contained in:
jgarcia 2006-06-17 16:06:18 +00:00
parent f21de12a27
commit fd2e23eefa
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/describe.lsp
View file

@ -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 "~&-----------------------------------------------------------------------------")