:initializer (find-slot-initializer class slot)
:initargs (find-slot-initargs class slot)))
+(defmethod find-class-initializer ((slot effective-slot) (class sod-class))
+ (let ((dslot (effective-slot-direct-slot slot)))
+ (or (some (lambda (super)
+ (find dslot (sod-class-class-initializers super)
+ :key #'sod-initializer-slot))
+ (sod-class-precedence-list class))
+ (effective-slot-initializer slot))))
+
;;;--------------------------------------------------------------------------
;;; Special-purpose slot objects.
(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