projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use CHAR-EQUAL and STRING for APROPOS.
[jscl.git]
/
src
/
documentation.lisp
diff --git
a/src/documentation.lisp
b/src/documentation.lisp
index
89e3404
..
108946e
100644
(file)
--- 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)
(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
(funcall function symbol))))
(if package
(if external-only
@@
-46,7
+44,7
@@
(when (fboundp symbol)
(format t " (fbound)"))
(terpri))
(when (fboundp symbol)
(format t " (fbound)"))
(terpri))
- string package external-only))
+ (string string) package external-only))
;;; DESCRIBE
;;; DESCRIBE