From: Mark Wooding Date: Sat, 29 Aug 2015 13:33:02 +0000 (+0100) Subject: src/method-impl.lisp: There's a handy definition `c-type-void', so use it. X-Git-Tag: 0.2.0~44 X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/4e561d89167ab39483f850df3ebc1f8c82dc9e7d?ds=inline src/method-impl.lisp: There's a handy definition `c-type-void', so use it. --- diff --git a/src/method-impl.lisp b/src/method-impl.lisp index 3fd6f08..8de19da 100644 --- a/src/method-impl.lisp +++ b/src/method-impl.lisp @@ -462,7 +462,7 @@ (defmethod compute-method-entry-functions ((method basic-effective-method)) ;; Generate the method body. We'll work out what to do with it later. (codegen-push codegen) - (let* ((result (if (eq return-type (c-type void)) nil + (let* ((result (if (eq return-type c-type-void) nil (temporary-var codegen return-type))) (emf-target (or result :void))) (compute-effective-method-body method codegen emf-target)