Changeset 11408


Ignore:
Timestamp:
Nov 18, 2008, 11:26:34 PM (11 years ago)
Author:
gz
Message:

accept method-function in source location lookup

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/source-files.lisp

    r11373 r11408  
    227227(defmethod definition-base-name ((dt method-definition-type) (method method))
    228228  (definition-base-name dt (method-name method)))
     229
     230(defmethod definition-base-name ((dt method-definition-type) (fn method-function))
     231  (definition-base-name dt (function-name fn)))
    229232
    230233(defmethod definition-same-p ((dt method-definition-type) m1 m2)
     
    607610;; Returns nil if not a method/method name
    608611(defun method-def-parameters (m)
     612  (when (typep m 'method-function)
     613    (setq m (%method-function-method m)))
    609614  (if (typep m 'method)
    610615    (values (method-name m)
Note: See TracChangeset for help on using the changeset viewer.