From 5111d4254703acc4eb3e7029707704ed3a5a6bfb Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Tue, 13 Nov 2018 22:53:30 -0800
Subject: [PATCH] Treat GETBYTE() result as unsigned so it is comparable to the
 result of GETWORD when comparing fat and thin strings.

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

diff --git a/src/mkatom.c b/src/mkatom.c
index 635e44f..72e0ded 100644
--- a/src/mkatom.c
+++ b/src/mkatom.c
@@ -233,7 +233,7 @@ LispPTR compare_lisp_chars(register char *char1, register char *char2, register
 int lispcmp(DLword *char1, unsigned char *char2, int len) {
   int index;
   for (index = 0; index < len; index++) {
-    if (GETWORD(char1++) != GETBYTE(char2++)) return (0);
+      if (GETWORD(char1++) != (unsigned char)GETBYTE(char2++)) return (0);
   }
   return (1);
 }