From cb35f25edb5a344605ec0501c7118dc0e595b875 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 29 Aug 2015 14:36:34 +0100 Subject: [PATCH 1/1] src/method-impl.lisp: Invoke `after' methods, even in `void' messages. Previously, the code would have suppressed them for some bizarre reason. The `voidp' variable is no longer needed, so remove it. --- src/method-impl.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/method-impl.lisp b/src/method-impl.lisp index 1cb9479..49c6676 100644 --- a/src/method-impl.lisp +++ b/src/method-impl.lisp @@ -323,12 +323,11 @@ method (let* ((message-type (sod-message-type message)) (return-type (c-type-subtype message-type)) - (voidp (eq return-type (c-type void))) (basic-tail (effective-method-basic-argument-names method))) (flet ((method-kernel (target) (dolist (before before-methods) (invoke-method codegen :void basic-tail before)) - (if (or voidp (null after-methods)) + (if (null after-methods) (funcall body target) (convert-stmts codegen target return-type (lambda (target) -- 2.11.0