X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..d5fdd49e70b734b791eb907706f92da5775e2a8b:/src/output-proto.lisp?ds=sidebyside

diff --git a/src/output-proto.lisp b/src/output-proto.lisp
index c5a2dff..e31b201 100644
--- a/src/output-proto.lisp
+++ b/src/output-proto.lisp
@@ -111,9 +111,8 @@
    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.