[armedbear-cvs] r12934 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Oct  1 17:40:50 2010
New Revision: 12934

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


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

Modified: trunk/abcl/src/org/armedbear/lisp/apropos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/apropos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/apropos.lisp	Fri Oct  1 17:40:50 2010
@@ -49,11 +49,12 @@
             (push symbol result)))
         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)
     (when (boundp symbol)