;;;--------------------------------------------------------------------------
;;; Output preparation.
+(export 'hook-output)
(defgeneric hook-output (object reason sequencer)
(:documentation
"Announces the intention to write SEQUENCER, with a particular REASON.
it was itself invoked.")
(:method-combination progn)
- (:method progn (object reason sequencer)))
+ (:method progn (object reason sequencer)
+ (declare (ignore object reason sequencer))))
;;;--------------------------------------------------------------------------
;;; Useful syntax.