From: Christophe R. <cs...@ca...> - 2004-09-09 21:33:55
|
Nathan Froyd <nf...@us...> writes: > Now with added tests! Passes all tests. > > +;;; ensure that we can dump and reload specialized arrays whose element > +;;; size is smaller than a byte (caused a few problems circa SBCL > +;;; 0.8.14.4) > + > +(defvar *1-bit* (make-array 5 :element-type 'bit :initial-element 0)) > +(defvar *2-bit* (make-array 5 :element-type '(unsigned-byte 2) :initial-element 0)) > +(defvar *4-bit* (make-array 5 :element-type '(unsigned-byte 4) :initial-element 1)) "I do not think these tests test what you think they test". "Stop saying that!" Er. These forms test being able to dump a call to the function MAKE-ARRAY with various combinations of arguments. I think to test the dumper's ability to dump small arrays, you actually need to do (defvar *2-bit* #.(make-array 5 :element-type '(mod 4) :initial-element 0)) so that the manifest object is dumped, rather than a compiled form to construct an array. Cheers, Christophe |