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