<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>The following compiler error using CCL 1.4 occurs on both DarwinX8664 and DarwinPPC (but does not on Linuxx6; haven't checked other platforms yet):</div><br><blockquote type="cite"><div><font class="Apple-style-span" color="#000000">Welcome to Clozure Common Lisp Version 1.4-r13131 (DarwinX8664)!</font></div><div><font class="Apple-style-span" color="#000000">? (defun ok (buckets x y)</font></div><div><font class="Apple-style-span" color="#000000"> (declare (type (simple-array t (* *)) buckets))</font></div><div><font class="Apple-style-span" color="#000000"> (aref buckets x y))</font></div><div><font class="Apple-style-span" color="#000000">OK</font></div><div></div></blockquote><div><br></div><div>Now the version triggering the error:</div><br><blockquote type="cite"><div><font class="Apple-style-span" color="#000000">? (defun bug (buckets x y)</font></div><div><font class="Apple-style-span" color="#000000"> (declare (type (simple-array t (* *)) buckets))</font></div><div><font class="Apple-style-span" color="#000000"> (let ((result (aref buckets x y)))</font></div><div><font class="Apple-style-span" color="#000000"> result))</font></div><div><font class="Apple-style-span" color="#000000">> Error: Compiler bug or inconsistency:</font></div><div><font class="Apple-style-span" color="#000000">> not an immediate: (33 KEYWORD (24616 :SIMPLE-VECTOR))</font></div><div><font class="Apple-style-span" color="#000000">> While executing: CCL::COMPILER-BUG, in process listener(1).</font></div><div><font class="Apple-style-span" color="#000000">> Type :POP to abort, :R for a list of available restarts.</font></div><div><font class="Apple-style-span" color="#000000">> Type :? for other options.</font></div><div><font class="Apple-style-span" color="#000000">1 > </font></div></blockquote><div><br></div></body></html>