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.

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 1cb9479b441192745b104e0ae06d4403b3b6225c..49c667640ac5f9d84433451f8ee78d42efabc6d4 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -323,12 +323,11 @@ (defun basic-effective-method-body (codegen target method body)
       method
     (let* ((message-type (sod-message-type message))
           (return-type (c-type-subtype message-type))
       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))
           (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)
                   (funcall body target)
                   (convert-stmts codegen target return-type
                                  (lambda (target)