defsetf slot-reduce