X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/3109662aca9c06495ac22c5c58b46e1c036aca5c..9ec578d9fe450b7e7f9030dc9d930185593aa991:/src/output-proto.lisp

diff --git a/src/output-proto.lisp b/src/output-proto.lisp
index af293ee..3483daa 100644
--- a/src/output-proto.lisp
+++ b/src/output-proto.lisp
@@ -100,6 +100,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; Output preparation.
 
+(export 'hook-output)
 (defgeneric hook-output (object reason sequencer)
   (:documentation
    "Announces the intention to write SEQUENCER, with a particular REASON.
@@ -112,7 +113,8 @@
    it was itself invoked.")
 
   (:method-combination progn)
-  (:method progn (object reason sequencer)))
+  (:method progn (object reason sequencer)
+	   (declare (ignore object reason sequencer))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Useful syntax.