From d5aebd03c5c2f40f7e40df97dad605b198340bff Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Mon, 2 Sep 2013 15:17:30 +0200 Subject: [PATCH] Use CHAR-EQUAL and STRING for APROPOS. First argument is a string designator. Comparing strings with CHAR-EQUAL is more reasonable than using CHAR=. --- src/documentation.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/documentation.lisp b/src/documentation.lisp index 89e3404..108946e 100644 --- a/src/documentation.lisp +++ b/src/documentation.lisp @@ -17,9 +17,7 @@ (defun map-apropos-symbols (function string package external-only) (flet ((handle-symbol (symbol) - ;; TODO: it's implementation-dependent, though CHAR-EQUAL seems - ;; more reasonable nevertheless - (when (search string (symbol-name symbol) :test #'char=) + (when (search string (symbol-name symbol) :test #'char-equal) (funcall function symbol)))) (if package (if external-only @@ -46,7 +44,7 @@ (when (fboundp symbol) (format t " (fbound)")) (terpri)) - string package external-only)) + (string string) package external-only)) ;;; DESCRIBE -- 1.7.10.4