Changeset 11408
- Timestamp:
- Nov 18, 2008, 11:26:34 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/source-files.lisp
r11373 r11408 227 227 (defmethod definition-base-name ((dt method-definition-type) (method method)) 228 228 (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))) 229 232 230 233 (defmethod definition-same-p ((dt method-definition-type) m1 m2) … … 607 610 ;; Returns nil if not a method/method name 608 611 (defun method-def-parameters (m) 612 (when (typep m 'method-function) 613 (setq m (%method-function-method m))) 609 614 (if (typep m 'method) 610 615 (values (method-name m)
Note: See TracChangeset
for help on using the changeset viewer.