+(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))))
+