anchor.diff:                (symbol-name (first symbols))
                 (sort (mapcar (lambda (sym) (package-name (symbol-package sym))) symbols)
                       (function string<))))))
  +
   
   (defun duplicate-symbols (&key (packages (list-all-packages)) (exported nil))
     "Return: a list of list of symbols that have the same name."
  
positive.code:   (:shadow "APROPOS" "APROPOS-LIST")
    (:export "CHECK-DUPLICATE-SYMBOLS"
             "DUPLICATE-SYMBOLS"
             "APROPOS" "APROPOS-LIST")
    (:documentation "
  A tool to check duplicate/un-exported/imported symbols.
  "))
  (in-package "COM.INFORMATIMAGO.TOOLS.SYMBOL")
  
  
  (defun report-duplicates (duplicates &optional (*standard-output* *standard-output*))
  
negative.code:                                symbols))
                         duplicates)
          duplicates)))
  
  
  (defun check-duplicate-symbols (&key (packages (list-all-packages)) (exported nil))
    (report-duplicates (duplicate-symbols :packages packages :exported exported)))
  