X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..d84f7ee7c5b3a6434e59428452ee506eb02e275e:/src/method-aggregate.lisp

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 @@
       (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)