(default-slot (slot 'prepare-function)
(get-property pset :prepare-function :func nil)))
-(export 'sod-class-effective-slot)
+(export '(sod-class-effective-slot
+ effective-slot-initializer-function
+ effective-slot-prepare-function))
(defclass sod-class-effective-slot (effective-slot)
((initializer-function :initarg :initializer-function
:type (or symbol function)
(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