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

[sod] / src / output-impl.lisp

diff --git a/src/output-impl.lisp b/src/output-impl.lisp
index 78423341c14ae940534e8f0a940f59bbca446a0d..f668fef113141b94f8521fb7dc36c40d20e386cf 100644 (file)
--- 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
                   (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)))
 
 (defmethod add-sequencer-item-function ((sequencer sequencer) name function)
   (let ((item (ensure-sequencer-item sequencer name)))