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 af293ee..a87c7c0 100644 (file)
--- a/src/output-proto.lisp
+++ b/src/output-proto.lisp
@@ -41,8 +41,7 @@
 
 (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
@@ -100,6 +99,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; Output preparation.
 
+(export 'hook-output)
 (defgeneric hook-output (object reason sequencer)
   (:documentation
    "Announces the intention to write SEQUENCER, with a particular REASON.
@@ -112,11 +112,13 @@
    it was itself invoked.")
 
   (:method-combination progn)
-  (:method progn (object reason sequencer)))
+  (:method progn (object reason sequencer)
+          (declare (ignore object reason sequencer))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Useful syntax.
 
+(export 'sequence-output)
 (defmacro sequence-output
     ((streamvar sequencer) &body clauses)
   "Register output behaviour in a convenient manner.