X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..23e44cba8fe33e8cdde22d1ae14d78d992b9f8bb:/src/output-impl.lisp

diff --git a/src/output-impl.lisp b/src/output-impl.lisp
index 30d0c80..df42115 100644
--- a/src/output-impl.lisp
+++ b/src/output-impl.lisp
@@ -35,8 +35,7 @@ (defmethod print-object ((item sequencer-item) stream)
 (defmethod ensure-sequencer-item ((sequencer sequencer) name)
   (with-slots (table) sequencer
     (or (gethash name table)
-	(setf (gethash name table)
-	      (make-instance 'sequencer-item :name name)))))
+	(setf (gethash name table) (make-sequencer-item name)))))
 
 (defmethod add-sequencer-constraint ((sequencer sequencer) (constraint list))
   (let ((converted-constraint