From 9b12db45be9ddf6a63240cfbc739049f4a092fdd Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Wed, 9 Dec 2020 18:14:50 -0800
Subject: [PATCH] Really switch to UNSIGNED instead of uintptr_t -- modified
 src/findkey.c

---
 src/findkey.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/findkey.c b/src/findkey.c
index b83af3c..e025b4f 100644
--- a/src/findkey.c
+++ b/src/findkey.c
@@ -11,7 +11,6 @@ static char *id = "$Id: findkey.c,v 1.3 1999/05/31 23:35:28 sybalsky Exp $ Copyr
 
 #include "version.h"
 
-#include <stdint.h>
 #include "lispemul.h"
 #include "lispmap.h"
 #include "emlglob.h"
@@ -53,7 +52,7 @@ LispPTR N_OP_findkey(register LispPTR tos, register int byte) {
 
   arg_nth = byte + 1;
 
-  for (ptr = (LispPTR *)(IVar + ((byte * 2) - 2)); (uintptr_t)find_end >= (uintptr_t)ptr;
+  for (ptr = (LispPTR *)(IVar + ((byte * 2) - 2)); (UNSIGNED)find_end >= (UNSIGNED)ptr;
        ptr += 2, arg_nth += 2) {
     if (*ptr == tos) { /* KEY founded */
       return (S_POSITIVE | arg_nth);