Changeset 12562

Timestamp:

Aug 11, 2009, 12:54:58 PM (10 years ago)

Author:

gz

Message:

Stop showing duplicates in apropos

File:

• trunk/source/lib/apropos.lisp (modified) (1 diff)

trunk/source/lib/apropos.lisp

@@ -48 +48 @@
       (do-symbols (sym package)
         (when (%apropos-substring-p theString (symbol-name sym))
-          (push sym theList)))
+          (pushnew sym theList)))
       (do-all-symbols (sym)
         (when (%apropos-substring-p theString (symbol-name sym))
-          (push sym theList))))
+          (pushnew sym theList))))
     (let* ((last 0)                      ; not a symbol
            (junk #'(lambda (item)