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 e2797ba..caaa7ea 100644 (file)
--- a/src/method-aggregate.lisp
+++ b/src/method-aggregate.lisp
@@ -421,7 +421,7 @@
       (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)