Changeset 9439


Ignore:
Timestamp:
May 9, 2008, 10:25:05 AM (11 years ago)
Author:
gb
Message:

Make %SOURCE-FILES work again.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/lib/source-files.lisp

    r9358 r9439  
    444444    definitions))
    445445
     446(defun find-simple-definitions-for-name (name)
     447  (let* ((result (find-definitions-for-name name)))
     448    (dolist (pair result result)
     449      (let* ((deftype (car pair)))
     450        (when (typep deftype 'definition-type)
     451          (setf (car pair) (definition-type-name deftype)))))))
     452
     453
    446454;;;; * backwards compatability. find-definitions-for-name or definition-source is the preferred way
    447455;;;; to lookup sources.
     
    492500"
    493501  (loop
    494     for (type name source-note) in (find-definitions-for-name name)
     502    for (type name source-note) in (find-simple-definitions-for-name name)
    495503    if (member type '(method 'reader-method 'writer-method))
    496504      collect (cons (%find-method-from-definition-name name)
Note: See TracChangeset for help on using the changeset viewer.