Changeset 12942


Ignore:
Timestamp:
Oct 9, 2009, 4:52:21 PM (10 years ago)
Author:
gz
Message:

Stop showing duplicates in apropos (from r12562)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/apropos.lisp

    r9922 r12942  
    4848      (do-symbols (sym package)
    4949        (when (%apropos-substring-p theString (symbol-name sym))
    50           (push sym theList)))
     50          (pushnew sym theList)))
    5151      (do-all-symbols (sym)
    5252        (when (%apropos-substring-p theString (symbol-name sym))
    53           (push sym theList))))
     53          (pushnew sym theList))))
    5454    (let* ((last 0)                      ; not a symbol
    5555           (junk #'(lambda (item)
Note: See TracChangeset for help on using the changeset viewer.