(let ((dslot (effective-slot-direct-slot slot)))
(or (some (lambda (super)
(find dslot (sod-class-class-initializers super)
- :test #'sod-initializer-slot))
+ :key #'sod-initializer-slot))
(sod-class-precedence-list class))
(effective-slot-initializer slot)))))
(:method ((slot effective-slot) (instance sod-class) stream)
(let ((init (find-class-initializer slot instance))
(direct-slot (effective-slot-direct-slot slot)))
- (ecase (sod-initializer-value-kind init)
- (:simple (format stream " /* ~15@A = */ ~A,~%"
- (sod-slot-name direct-slot)
- (sod-initializer-value-form init)))
- (:compound (format stream " /* ~15@A = */ ~@<{ ~;~A~; },~:>~%"
- (sod-slot-name direct-slot)
- (sod-initializer-value-form init)))))))
+ (format stream " /* ~15@A = */ ~A,~%"
+ (sod-slot-name direct-slot)
+ (sod-initializer-value init)))))
(defmethod hook-output progn
((slot sod-class-effective-slot) (reason (eql 'class)) sequencer)