src/c-types-parse.lisp: Parse `...' in argument lists.

[sod] / src / method-impl.lisp

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))
-          (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)