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 3fd6f08585105f2126c842e9d18e215f2d6c6c5f..8de19da26be0dd52198929171094cd09c3ddd2f9 100644 (file)
--- 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)