src/method-impl.lisp: There's a handy definition `c-type-void', so use it.
authorMark Wooding <mdw@distorted.org.uk>
Sat, 29 Aug 2015 13:33:02 +0000 (14:33 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Sun, 30 Aug 2015 17:11:39 +0000 (18:11 +0100)
src/method-impl.lisp

index 3fd6f08..8de19da 100644 (file)
 
       ;; 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)