X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..2c6153373f927d948a74b283ebb16330af8ee49a:/src/output-impl.lisp

diff --git a/src/output-impl.lisp b/src/output-impl.lisp
index 7842334..96cfa20 100644
--- a/src/output-impl.lisp
+++ b/src/output-impl.lisp
@@ -55,15 +55,27 @@
 		   (ensure-sequencer-item sequencer name))
 		 constraint)))
     (with-slots (constraints) sequencer
-      (pushnew converted-constraint constraints :test #'equal))))
+      (pushnew converted-constraint constraints))))
 
 (defmethod add-sequencer-item-function ((sequencer sequencer) name function)
   (let ((item (ensure-sequencer-item sequencer name)))
     (pushnew function (sequencer-item-functions item))))
 
 (defmethod invoke-sequencer-items ((sequencer sequencer) &rest arguments)
-  (dolist (item (merge-lists (reverse (sequencer-constraints sequencer))))
-    (dolist (function (reverse (sequencer-item-functions item)))
-      (apply function 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)
+      (dolist (function (reverse (sequencer-item-functions item)))
+	(apply function arguments)))
+    (maphash (lambda (name item)
+	       (unless (gethash item seen)
+		 (warn "Unused output item ~S" name)))
+	     (sequencer-table sequencer))))
 
 ;;;----- That's all, folks --------------------------------------------------