Changeset 12562


Ignore:
Timestamp:
Aug 11, 2009, 12:54:58 PM (10 years ago)
Author:
gz
Message:

Stop showing duplicates in apropos

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/apropos.lisp

    r8772 r12562  
    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.