It's disabled, but the format string is quite hairy, and this rune can
make confusing bugs a little easier to track down so I'm committing it.
(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)