Changeset 11408

Timestamp:

Nov 18, 2008, 11:26:34 PM (11 years ago)

Author:

gz

Message:

accept method-function in source location lookup

File:

• trunk/source/lib/source-files.lisp (modified) (2 diffs)

trunk/source/lib/source-files.lisp

@@ -227 +227 @@
 (defmethod definition-base-name ((dt method-definition-type) (method method))
   (definition-base-name dt (method-name method)))
+
+(defmethod definition-base-name ((dt method-definition-type) (fn method-function))
+  (definition-base-name dt (function-name fn)))
 
 (defmethod definition-same-p ((dt method-definition-type) m1 m2)
@@ -607 +610 @@
 ;; Returns nil if not a method/method name
 (defun method-def-parameters (m)
+  (when (typep m 'method-function)
+    (setq m (%method-function-method m)))
   (if (typep m 'method)
     (values (method-name m)