src/method-impl.lisp: Fix incorrect argument order.

[sod] / src / method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 8de19da26be0dd52198929171094cd09c3ddd2f9..1cb9479b441192745b104e0ae06d4403b3b6225c 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -335,7 +335,7 @@ (defun basic-effective-method-body (codegen target method body)
                                    (funcall body target)
                                    (dolist (after (reverse after-methods))
                                      (invoke-method codegen :void
-                                                    after basic-tail)))))))
+                                                    basic-tail after)))))))
        (invoke-delegation-chain codegen target basic-tail
                                 around-methods #'method-kernel)))))