From 7d82b76bc3324e391f3045aa5ffb08951d4d6239 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20Majerech?= <majerech.o@gmail.com>
Date: Wed, 13 Mar 2019 22:56:06 +0100
Subject: [PATCH] Fix tests on Windows

---
 sexp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sexp.c b/sexp.c
index e99c988b3..4ada89d00 100644
--- a/sexp.c
+++ b/sexp.c
@@ -2280,7 +2280,7 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
       break;
     }
   } else if (sexp_fixnump(obj)) {
-    snprintf(numbuf, NUMBUF_LEN, "%" SEXP_PRIdFIXNUM, (long)sexp_unbox_fixnum(obj));
+    snprintf(numbuf, NUMBUF_LEN, "%" SEXP_PRIdFIXNUM, (sexp_sint_t)sexp_unbox_fixnum(obj));
     sexp_write_string(ctx, numbuf, out);
 #if SEXP_USE_IMMEDIATE_FLONUMS
   } else if (sexp_flonump(obj)) {
@@ -2956,7 +2956,7 @@ sexp sexp_list_to_uvector_op(sexp ctx, sexp self, sexp_sint_t n, sexp etype, sex
     res = et == SEXP_U8 ? sexp_make_bytes(ctx, sexp_length(ctx, ls), SEXP_VOID) : sexp_make_uvector(ctx, etype, sexp_length(ctx, ls));
     min = 0;
     max = sexp_uvector_element_size(et) == 64 ? -1 :
-      (1uL << sexp_uvector_element_size(et)) - 1;
+      (1uLL << sexp_uvector_element_size(et)) - 1;
     if (sexp_uvector_prefix(et) == 's') {
       min = -(max/2) - 1;
       max = (max/2);