Changeset 9463


Ignore:
Timestamp:
May 13, 2008, 9:50:02 AM (11 years ago)
Author:
mb
Message:

Teach find-definitions-of-thing to deal with anonymous functions.

File:
1 edited

Legend:

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

    r9358 r9463  
    437437
    438438      (typecase thing
    439         (function  (collect-def 'function (function-name thing)))
     439        (function  (if (getf (%lfun-info thing) 'function-source-note)
     440                     (let* ((function-source-note (getf (%lfun-info thing) 'function-source-note)))
     441                       (list (%make-source-note :start-pos (getf function-source-note :start)
     442                                                :end-pos (getf function-source-note :end)
     443                                                :source (%fast-uncompact (getf function-source-note :%text  ))
     444                                                :file-name (getf function-source-note :file-name))))
     445                     (collect-def 'function (function-name thing))))
    440446        (class     (collect-def 'class (class-name thing)))
    441447        (method    (collect-def 'method thing))
Note: See TracChangeset for help on using the changeset viewer.