Changeset 8814


Ignore:
Timestamp:
Mar 17, 2008, 10:41:25 PM (11 years ago)
Author:
gz
Message:

Fix in find-unique-homonyms

File:
1 edited

Legend:

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

    r8777 r8814  
    675675(defun find-unique-homonyms (name &optional (test (constantly t)))
    676676  (loop
     677    with symbol = (if (consp name) (second name) name)
     678    with pname = (symbol-name symbol)
    677679    for package in (list-all-packages)
    678     for other-package-symbol = (find-symbol
    679                                 (symbol-name (if (listp name)
    680                                                (second name)
    681                                                name))
    682                                 package)
    683     for canditate = (if (listp name)
    684                       (list (first name) package-symbol)
    685                       package-symbol)
    686     when (and other-package-symbol
    687               (not (if (listp name)
    688                      (eq (second canditate) (second name))
    689                      (eq canditate name)))
     680    for other-package-symbol = (find-symbol pname package)
     681    for canditate = (and other-package-symbol
     682                         (neq other-package-symbol symbol)
     683                         (if (consp name)
     684                           (list (first name) other-package-symbol)
     685                           other-package-symbol))
     686    when (and canditate
    690687              (funcall test canditate))
    691       collect canditate))
     688    collect canditate))
    692689
    693690(def-kernel-restart $xvunbnd %default-unbound-variable-restarts (frame-ptr cell-name)
Note: See TracChangeset for help on using the changeset viewer.