From 18c0b222436f54dd5b07b869cc7c1c0a644c61a7 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 17 Jun 1990 11:32:15 +0000
Subject: [PATCH] Fixed declarations in computation of LEFT-BITS in
 READ-PIXARRAY-1. You can't say (index- x) on non-zero X.

---
 clx/image.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/clx/image.lisp b/clx/image.lisp
index 152af53f8..7da52180e 100644
--- a/clx/image.lisp
+++ b/clx/image.lisp
@@ -844,7 +844,9 @@
 			 (index-ceiling x 8))
 		 (index+ start padded-bytes-per-line))
 	  (y 0 (index1+ y))
-	  (left-bits (index-mod (index- x) 8))
+	  (left-bits (the array-index
+			  (mod (the (integer #x-FFFF 0) (- x))
+			       8)))
 	  (right-bits (index-mod (index- width left-bits) 8))
 	  (middle-bits (index- width left-bits right-bits))
 	  (middle-bytes (index-floor middle-bits 8)))
-- 
GitLab