Changeset 9740


Ignore:
Timestamp:
Jun 12, 2008, 12:38:30 PM (11 years ago)
Author:
mb
Message:

Teach find-definitions-of-thing about method-function objects

File:
1 edited

Legend:

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

    r9578 r9740  
    435435                                                (find-definitions-for-name name type))
    436436                                        :test #'def-eql))))
    437 
    438437      (typecase thing
     438        (method-function (collect-def 'method (%method-function-method thing)))
    439439        (function  (if (getf (%lfun-info thing) 'function-source-note)
    440440                     (let* ((function-source-note (getf (%lfun-info thing) 'function-source-note)))
     
    447447        (method    (collect-def 'method thing))
    448448        (symbol    (collect-def 't thing))))
    449 
    450449    definitions))
    451450
Note: See TracChangeset for help on using the changeset viewer.