From d84f7ee7c5b3a6434e59428452ee506eb02e275e Mon Sep 17 00:00:00 2001
Message-Id: <d84f7ee7c5b3a6434e59428452ee506eb02e275e.1718422911.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Tue, 17 Nov 2015 20:30:28 +0000
Subject: [PATCH] src/method-aggregate.lisp: Make the method count be `size_t'.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 src/method-aggregate.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/method-aggregate.lisp b/src/method-aggregate.lisp
index e2797ba..caaa7ea 100644
--- a/src/method-aggregate.lisp
+++ b/src/method-aggregate.lisp
@@ -421,7 +421,7 @@ (defmethod compute-aggregating-message-kernel
       (ensure-var codegen retvar type)
       (ensure-var codegen valvar type))
     (when count
-      (ensure-var codegen count c-type-int (length methods)))
+      (ensure-var codegen count c-type-size-t (length methods)))
     (when decls
       (emit-decl codegen decls))
     (labels ((maybe-emit (fragment)
-- 
[mdw]