Index: /branches/working-0711/ccl/lib/source-files.lisp
===================================================================
--- /branches/working-0711/ccl/lib/source-files.lisp	(revision 9462)
+++ /branches/working-0711/ccl/lib/source-files.lisp	(revision 9463)
@@ -437,5 +437,11 @@
 
       (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))