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