From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: src/class-utilities.lisp: Compare C types with the right function.
X-Git-Tag: 0.2.0~27
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/8dba302b8123339889418d130c03bb2af4d0f464

src/class-utilities.lisp: Compare C types with the right function.

There's something weird with the caching, I think.  But this way leaves
a better taste anyway.
---

diff --git a/src/class-utilities.lisp b/src/class-utilities.lisp
index aa4ef17..5a74bcb 100644
--- a/src/class-utilities.lisp
+++ b/src/class-utilities.lisp
@@ -160,7 +160,8 @@ (defun argument-lists-compatible-p (message-args method-args)
   (and (= (length message-args) (length method-args))
        (every (lambda (message-arg method-arg)
 		(if (eq message-arg :ellipsis)
-		    (eq method-arg (c-type va-list))
+		    (c-type-equal-p (argument-type method-arg)
+				    (c-type va-list))
 		    (c-type-equal-p (argument-type message-arg)
 				    (argument-type method-arg))))
 	      message-args method-args)))