From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 5 Jan 2016 19:29:59 +0000 (+0000)
Subject: src/output-impl.lisp: Add a debugging dump of the known constraints.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/b5130310e64d10370f0ed36f20ce24ad3c84dc16?ds=inline

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.
---

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 @@ (defmethod add-sequencer-item-function ((sequencer sequencer) name function)
     (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)