From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 29 Aug 2015 13:33:40 +0000 (+0100)
Subject: src/method-impl.lisp: Fix incorrect argument order.
X-Git-Tag: 0.2.0~43
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/a898c9e295c84062379cda5cd42f113bee0138e2

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

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 8de19da..1cb9479 100644
--- 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)))))