SPARSE-VECTOR-REF and readtables

[svspire]

From r15343, perhaps?

ChromeKote:ccl svspire$ ./dx86cl64 -n Welcome to Clozure Common Lisp Version 1.8-r15290M (DarwinX8664)! ? (set-syntax-from-char #\u+feff #\space) T ?

ChromeKote:ccl svspire$ ./dx86cl64 -n Welcome to Clozure Common Lisp Version 1.9-dev-r15382M-trunk (DarwinX8664)! ? (set-syntax-from-char #\u+feff #\space)

Error: Array index 254 out of bounds for #<SIMPLE-VECTOR 1> . While executing: (SETF CCL::SPARSE-VECTOR-REF), in process listener(1). Type :POP to abort, :R for a list of available restarts. Type :? for other options.

1 >

[gb]

(In [15443]) Fencepost (er, sort of) in (SETF SPARSE-VECTOR-REF). Fixes ticket:1007.

[svspire]

Welcome to Clozure Common Lisp Version 1.8-r15290M (DarwinX8664)! ? (set-syntax-from-char #\u+feff #\space) T ? (read-from-string (string #\U+2291)) \ 1 Welcome to Clozure Common Lisp Version 1.9-dev-r15443M-trunk (DarwinX8664)! ? (set-syntax-from-char #\u+feff #\space) T ? (read-from-string (string #\U+2291))

Error: The value 0 is not of the expected type CCL::UVECTOR. While executing: CCL::SPARSE-VECTOR-REF, in process listener(1). Type :POP to abort, :R for a list of available restarts. Type :? for other options.

1 >

[gb]

(In [15446]) When (SETF SPARSE-VECTOR-REF) has to extend the table, ensure that new elements are NIL. Fixes ticket:1007 again ...