X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc.h;h=a02846667e941b4d5abcaf3c5815edca2030dc28;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=3b0aea034c84a3c5862f2d57f4ee7f42453418cf;hpb=e26e24ac5b2c744fc5104f7123c5ddcf884dca02;p=sbcl.git

diff --git a/src/runtime/gc.h b/src/runtime/gc.h
index 3b0aea0..a028466 100644
--- a/src/runtime/gc.h
+++ b/src/runtime/gc.h
@@ -22,7 +22,11 @@
 #define PAGE_BYTES BACKEND_PAGE_BYTES
 
 typedef intptr_t page_index_t;
+#ifdef LISP_FEATURE_WIN32
+#define PAGE_INDEX_FMT "Id"
+#else
 #define PAGE_INDEX_FMT "ld"
+#endif
 
 typedef signed char generation_index_t;