src/output-impl.lisp: Add a debugging dump of the known constraints.

[sod] / src / output-impl.lisp

diff --git a/src/output-impl.lisp b/src/output-impl.lisp
index d85d77d4476cf66f5abef228ecd5723eed263861..96cfa205a6cb3d9a18419690e266aede072964ad 100644 (file)
--- 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)
     (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)
   (let ((seen (make-hash-table)))
     (dolist (item (merge-lists (reverse (sequencer-constraints sequencer))))
       (setf (gethash item seen) t)