src/output-{proto,impl}.lisp: `sequencer''s :constraints initarg takes names.

[sod] / src / output-proto.lisp

diff --git a/src/output-proto.lisp b/src/output-proto.lisp
index 65068f3f3d511073facc368286fbd92e264904cd..a87c7c0760ed9c9ff6d1d65044492e617d0174a4 100644 (file)
--- a/src/output-proto.lisp
+++ b/src/output-proto.lisp
@@ -41,8 +41,7 @@ (defstruct (sequencer-item
 
 (export '(sequencer sequencer-constraints sequencer-table))
 (defclass sequencer ()
-  ((constraints :initarg :constraints :initform nil
-               :type list :accessor sequencer-constraints)
+  ((constraints :initform nil :type list :accessor sequencer-constraints)
    (table :initform (make-hash-table :test #'equal)
          :reader sequencer-table))
   (:documentation