From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 2 Sep 2013 13:17:30 +0000 (+0200)
Subject: Use CHAR-EQUAL and STRING for APROPOS.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=d5aebd03c5c2f40f7e40df97dad605b198340bff

Use CHAR-EQUAL and STRING for APROPOS.

First argument is a string designator.  Comparing strings with
CHAR-EQUAL is more reasonable than using CHAR=.
---

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