[Openmcl-cvs-notifications] r12562 - /trunk/source/lib/apropos.lisp

[gz at clozure.com]

Author: gz
Date: Tue Aug 11 08:54:58 2009
New Revision: 12562

Log:
Stop showing duplicates in apropos

Modified:
    trunk/source/lib/apropos.lisp

Modified: trunk/source/lib/apropos.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/apropos.lisp (original)
+++ trunk/source/lib/apropos.lisp Tue Aug 11 08:54:58 2009
@@ -47,10 +47,10 @@
     (if package
       (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)
                      (declare (debugging-function-name nil))