((method effective-method) direct-methods)
(with-slots (message) method
(and (keyword-message-p message)
- (cons (cons (c-function-keywords (sod-message-type message))
- (format nil "message ~A (at ~A)"
- message (file-location message)))
+ (cons (cons (format nil "message ~A (at ~A)"
+ message (file-location message))
+ (c-function-keywords (sod-message-type message)))
(mapcar (lambda (m)
- (cons (c-function-keywords (sod-method-type m))
- (format nil "method for ~A on ~A (at ~A)"
+ (cons (format nil "method for ~A on ~A (at ~A)"
message
(sod-method-class m)
- (file-location m))))
+ (file-location m))
+ (c-function-keywords (sod-method-type m))))
direct-methods)))))
(defmethod shared-initialize :after