X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/6e2d4b5250ecf9cf82fcb7c5c76bdebca230150b..e82044bca1b6cfe495de93abbff727a5b41359b8:/src/output-impl.lisp

diff --git a/src/output-impl.lisp b/src/output-impl.lisp
index df42115..7c3f436 100644
--- a/src/output-impl.lisp
+++ b/src/output-impl.lisp
@@ -32,6 +32,18 @@ (defmethod print-object ((item sequencer-item) stream)
   (print-unreadable-object (item stream :type t)
     (prin1 (sequencer-item-name item) stream)))
 
+(defmethod shared-initialize ((sequencer sequencer) slot-names
+			      &key (constraints nil constraintsp))
+  (call-next-method)
+  (when constraintsp
+    (setf (slot-value sequencer 'constraints)
+	  (mapcar (lambda (constraint)
+		    (mapcar (lambda (name)
+			      (ensure-sequencer-item sequencer name))
+			    constraint))
+		  (reverse constraints))))
+  sequencer)
+
 (defmethod ensure-sequencer-item ((sequencer sequencer) name)
   (with-slots (table) sequencer
     (or (gethash name table)