Changeset 12942

Timestamp:

Oct 9, 2009, 9:52:21 AM (15 years ago)

Author:

gz

Message:

Stop showing duplicates in apropos (from r12562)

File:

• branches/working-0711/ccl/lib/apropos.lisp (modified) (1 diff)

branches/working-0711/ccl/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)