From 0de1b1438bf1ae995a5a5c69ddff349ffcc85604 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Fri, 3 Sep 2021 12:46:21 -0700
Subject: [PATCH] Left shift is undefined if left argument is negative (#454)
 (#393)

---
 src/binds.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/binds.c b/src/binds.c
index 74b1096..ffe63f9 100644
--- a/src/binds.c
+++ b/src/binds.c
@@ -33,7 +33,7 @@ LispPTR *N_OP_bind(register LispPTR *stack_pointer, register LispPTR tos, int by
   register int n1;         /* # slots to bind to NIL (0, 0) */
   register int n2;         /* # slots to bind to value in stack */
   register LispPTR *ppvar; /* pointer to argued slot in Pvar area */
-  register int i;          /* temporary for control */
+  register unsigned i;          /* temporary for control */
 
 #ifdef TRACE
   printPC();