From b5130310e64d10370f0ed36f20ce24ad3c84dc16 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Tue, 5 Jan 2016 19:29:59 +0000 Subject: [PATCH] src/output-impl.lisp: Add a debugging dump of the known constraints. 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. --- src/output-impl.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/output-impl.lisp b/src/output-impl.lisp index d85d77d..96cfa20 100644 --- a/src/output-impl.lisp +++ b/src/output-impl.lisp @@ -62,6 +62,12 @@ (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) -- 2.11.0