- (unless (eq (slot-definition-allocation slotd) :class)
- ;; :ALLOCATION :CLASS slots use the :INITFORM when class is defined
- ;; or redefined, not when instances are allocated.
- (when (or (eq t slot-names)
- (memq (slot-definition-name slotd) slot-names))
- (initialize-slot-from-initfunction class instance slotd)))))
+ (when (or (eq t slot-names)
+ (memq (slot-definition-name slotd) slot-names))
+ (initialize-slot-from-initfunction class instance slotd))))