Changeset 11932 for trunk/source/level-1


Ignore:
Timestamp:
Apr 9, 2009, 11:26:52 PM (10 years ago)
Author:
rme
Message:

Merge r11811 (don't show duplicates in use-homonym restarts).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-error-system.lisp

    r11886 r11932  
    711711
    712712(defun find-unique-homonyms (name &optional (test (constantly t)))
    713   (loop
    714     with symbol = (if (consp name) (second name) name)
    715     with pname = (symbol-name symbol)
    716     for package in (list-all-packages)
    717     for other-package-symbol = (find-symbol pname package)
    718     for canditate = (and other-package-symbol
    719                          (neq other-package-symbol symbol)
    720                          (if (consp name)
    721                            (list (first name) other-package-symbol)
    722                            other-package-symbol))
    723     when (and canditate
    724               (funcall test canditate))
    725     collect canditate))
     713  (delete-duplicates
     714   (loop
     715     with symbol = (if (consp name) (second name) name)
     716     with pname = (symbol-name symbol)
     717     for package in (list-all-packages)
     718     for other-package-symbol = (find-symbol pname package)
     719     for canditate = (and other-package-symbol
     720                          (neq other-package-symbol symbol)
     721                          (if (consp name)
     722                            (list (first name) other-package-symbol)
     723                            other-package-symbol))
     724     when (and canditate
     725               (funcall test canditate))
     726       collect canditate)
     727   :test #'equal))
    726728
    727729(def-kernel-restart $xvunbnd %default-unbound-variable-restarts (frame-ptr cell-name)
Note: See TracChangeset for help on using the changeset viewer.