[Openmcl-devel] [openmcl 1.1 6/8/06] Problem with fixnum arrays

[Erik Pearson]

Hi,

Using openmcl 1.1 on OSX 10.4.6 and have encountered a problem with  
fixnum arrays.

? (defun test () (make-array 10 :element-type 'fixnum :initial- 
element 1))
TEST
? (test)
#(16843009 16843009 16843009 0 0 0 0 0 0 0)


? (defun test () (make-array 10 :element-type 'integer :initial- 
element 0))
TEST
? (test)
#(0 0 0 0 0 0 0 0 0 0)

but this works:

? (make-array 10 :element-type 'fixnum :initial-element 1)
#(1 1 1 1 1 1 1 1 1 1)

I did see in release-notes.txt that there is a new array of fixnum type.


A related error in 1.1 is that I can't set an initial element of -1

? (make-array 10 :element-type 'fixnum :initial-element -1)
#(-1 -1 -1 -1 -1 -1 -1 -1 -1 -1)
? (defun test () (make-array 10 :element-type 'fixnum :initial- 
element -1))
TEST
? (test)
 > Error: -1 doesn't match array element type of #<VECTOR 10 type  
FIXNUM, simple>.
 > While executing: CCL::%INIT-MISC, in process listener(1).
 > Type :POP to abort, :R for a list of available restarts.
 > Type :? for other options.
1 >

Which does work on 1.0

I updated the 1.1 from cvs and rebuilt, with no change in behavior.

Thanks,
Erik.