(defmethod ensure-sequencer-item ((sequencer sequencer) name)
(with-slots (table) sequencer
(or (gethash name table)
- (setf (gethash name table)
- (make-instance 'sequencer-item :name name)))))
+ (setf (gethash name table) (make-sequencer-item name)))))
(defmethod add-sequencer-constraint ((sequencer sequencer) (constraint list))
(let ((converted-constraint