More WIP.

[sod] / src / output-proto.lisp

diff --git a/src/output-proto.lisp b/src/output-proto.lisp
index af293eea461c4ea194a5b30d1758d0da98752a3f..5b00dcf260aa9a1b7e5de3dbe3ef48f988fb95f7 100644 (file)
--- a/src/output-proto.lisp
+++ b/src/output-proto.lisp
@@ -112,7 +112,8 @@ (defgeneric hook-output (object reason sequencer)
    it was itself invoked.")
 
   (:method-combination progn)
-  (:method progn (object reason sequencer)))
+  (:method progn (object reason sequencer)
+    (declare (ignore object reason sequencer))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Useful syntax.