(sod-class-nickname (method-entry-chain-head entry))
(method-entry-role entry))))
+(defmethod sod-message-applicable-methods
+ ((message sod-message) (class sod-class))
+ (mappend (lambda (super)
+ (remove message
+ (sod-class-methods super)
+ :key #'sod-method-message
+ :test-not #'eql))
+ (sod-class-precedence-list class)))
+
(defmethod compute-sod-effective-method
((message sod-message) (class sod-class))
- (let ((direct-methods (mappend (lambda (super)
- (remove message
- (sod-class-methods super)
- :key #'sod-method-message
- :test-not #'eql))
- (sod-class-precedence-list class))))
+ (let ((direct-methods (sod-message-applicable-methods message class)))
(make-instance (sod-message-effective-method-class message)
:message message
:class class