Changeset 12934


Ignore:
Timestamp:
10/01/10 21:40:50 (10 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/apropos.lisp

    r12217 r12934  
    5050        result)
    5151      (mapcan (lambda (package)
    52     (apropos-list string-designator package))
    53         (list-all-packages))))
     52                (apropos-list string-designator package))
     53              (list-all-packages))))
    5454
    5555(defun apropos (string-designator &optional package-designator)
    56   (dolist (symbol (apropos-list string-designator package-designator))
     56  (dolist (symbol (remove-duplicates (apropos-list string-designator
     57                                                   package-designator)))
    5758    (fresh-line)
    5859    (prin1 symbol)
Note: See TracChangeset for help on using the changeset viewer.