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