src/output-proto.lisp, etc. (hook-output): Use standard combination.

[sod] / src / output-proto.lisp

diff --git a/src/output-proto.lisp b/src/output-proto.lisp
index c5a2dff1966d0f9e189cfecf4ffe2ac5944c25af..e31b201a0923ac566f908743eac307e4b924bdde 100644 (file)
--- a/src/output-proto.lisp
+++ b/src/output-proto.lisp
@@ -111,9 +111,8 @@ (defgeneric hook-output (object reason sequencer)
    a reason to its sub-objects that is different from the REASON with which
    it was itself invoked.")
 
-  (:method-combination progn)
-  (:method progn (object reason sequencer)
-          (declare (ignore object reason sequencer))))
+  (:method (object reason sequencer)
+    (declare (ignore object reason sequencer))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Useful syntax.