Changeset 11811


Ignore:
Timestamp:
Mar 10, 2009, 4:07:16 PM (10 years ago)
Author:
gz
Message:

don't show duplicates in the various use-homonym restarts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-error-system.lisp

    r11810 r11811  
    704704
    705705(defun find-unique-homonyms (name &optional (test (constantly t)))
    706   (loop
    707     with symbol = (if (consp name) (second name) name)
    708     with pname = (symbol-name symbol)
    709     for package in (list-all-packages)
    710     for other-package-symbol = (find-symbol pname package)
    711     for canditate = (and other-package-symbol
    712                          (neq other-package-symbol symbol)
    713                          (if (consp name)
    714                            (list (first name) other-package-symbol)
    715                            other-package-symbol))
    716     when (and canditate
    717               (funcall test canditate))
    718     collect canditate))
     706  (delete-duplicates
     707   (loop
     708     with symbol = (if (consp name) (second name) name)
     709     with pname = (symbol-name symbol)
     710     for package in (list-all-packages)
     711     for other-package-symbol = (find-symbol pname package)
     712     for canditate = (and other-package-symbol
     713                          (neq other-package-symbol symbol)
     714                          (if (consp name)
     715                            (list (first name) other-package-symbol)
     716                            other-package-symbol))
     717     when (and canditate
     718               (funcall test canditate))
     719       collect canditate)
     720   :test #'equal))
    719721
    720722(def-kernel-restart $xvunbnd %default-unbound-variable-restarts (frame-ptr cell-name)
Note: See TracChangeset for help on using the changeset viewer.