Changeset 9463 for branches

Timestamp:

May 13, 2008, 2:50:02 AM (17 years ago)

Author:

marco baringer

Message:

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

File:

• branches/working-0711/ccl/lib/source-files.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/source-files.lisp

@@ -437 +437 @@
 
       (typecase thing
-        (function  (collect-def 'function (function-name thing)))
+        (function  (if (getf (%lfun-info thing) 'function-source-note)
+                     (let* ((function-source-note (getf (%lfun-info thing) 'function-source-note)))
+                       (list (%make-source-note :start-pos (getf function-source-note :start)
+                                                :end-pos (getf function-source-note :end)
+                                                :source (%fast-uncompact (getf function-source-note :%text  ))
+                                                :file-name (getf function-source-note :file-name))))
+                     (collect-def 'function (function-name thing))))
         (class     (collect-def 'class (class-name thing)))
         (method    (collect-def 'method thing))