X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/e85df3ff84611b7c790f9ffb46dfca77e2a717c0..32f9ec0f9e8f5f5c5cef7f41c9d4609c20a47eb3:/src/output-impl.lisp

diff --git a/src/output-impl.lisp b/src/output-impl.lisp
index 7842334..f668fef 100644
--- a/src/output-impl.lisp
+++ b/src/output-impl.lisp
@@ -55,7 +55,7 @@ (defmethod add-sequencer-constraint ((sequencer sequencer) (constraint list))
 		   (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)))