(with-slots (message) method
(and (keyword-message-p message)
(mapcar (lambda (m)
- (let ((type (sod-method-type m)))
- (cons (c-function-keywords type)
- (format nil "method for ~A on ~A (at ~A)"
- message
- (sod-method-class m)
- (file-location 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