src/method-aggregate.lisp: Make the method count be `size_t'.

[sod] / src / method-aggregate.lisp

diff --git a/src/method-aggregate.lisp b/src/method-aggregate.lisp
index e2797baac536c2be38dfd43dd6e58ea61944af4a..caaa7ea81ab23b071e4815e3e63ed2fd2f342b7d 100644 (file)
--- 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)