src/output-impl.lisp: No need to use `equal' on items rather than names.

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