(pushnew function (sequencer-item-functions item))))
(defmethod invoke-sequencer-items ((sequencer sequencer) &rest arguments)
+ #+debug
+ (format *debug-io* "~@<;; ~@;Constraints: ~_~
+ ~<~@{~< * ~;~@{~S~^, ~:_~}~:>~:@_~}~:>~:>"
+ (mapcar (lambda (constraint)
+ (mapcar #'sequencer-item-name constraint))
+ (sequencer-constraints sequencer)))
(let ((seen (make-hash-table)))
(dolist (item (merge-lists (reverse (sequencer-constraints sequencer))))
(setf (gethash item seen) t)