proper setf expander for slot-reduce