Changeset 9740 for branches

Timestamp:

Jun 12, 2008, 5:38:30 AM (16 years ago)

Author:

marco baringer

Message:

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

File:

• branches/working-0711/ccl/lib/source-files.lisp (modified) (2 diffs)

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

@@ -435 +435 @@
                                                 (find-definitions-for-name name type))
                                         :test #'def-eql))))
-
       (typecase thing
+        (method-function (collect-def 'method (%method-function-method thing)))
         (function  (if (getf (%lfun-info thing) 'function-source-note)
                      (let* ((function-source-note (getf (%lfun-info thing) 'function-source-note)))
@@ -447 +447 @@
         (method    (collect-def 'method thing))
         (symbol    (collect-def 't thing))))
-
     definitions))