Changeset 12562
- Timestamp:
- Aug 11, 2009, 12:54:58 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/apropos.lisp
r8772 r12562 48 48 (do-symbols (sym package) 49 49 (when (%apropos-substring-p theString (symbol-name sym)) 50 (push sym theList)))50 (pushnew sym theList))) 51 51 (do-all-symbols (sym) 52 52 (when (%apropos-substring-p theString (symbol-name sym)) 53 (push sym theList))))53 (pushnew sym theList)))) 54 54 (let* ((last 0) ; not a symbol 55 55 (junk #'(lambda (item)
Note: See TracChangeset
for help on using the changeset viewer.