Changeset 12934

Timestamp:

10/01/10 21:40:50 (12 years ago)

Author:

ehuelsmann

Message:

Fix #97: Symbol imported into/exported from multiple packages reported
multiple times by APROPOS.

File:

• trunk/abcl/src/org/armedbear/lisp/apropos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/apropos.lisp

@@ -50 +50 @@
         result)
       (mapcan (lambda (package)
-    (apropos-list string-designator package))
-        (list-all-packages))))
+                (apropos-list string-designator package))
+              (list-all-packages))))
 
 (defun apropos (string-designator &optional package-designator)
-  (dolist (symbol (apropos-list string-designator package-designator))
+  (dolist (symbol (remove-duplicates (apropos-list string-designator
+                                                   package-designator)))
     (fresh-line)
     (prin1 symbol)