[elephant-devel] Array slots

[Leslie P. Polzer]

There are array tests and slot tests, but there don't seem to be any
covering the combination of those. Seems to have turned out to be
a problem:


(29): (defpclass schmuck () ((a :type array :initform (make-array 4)))(:index t))
#<PERSISTENT-METACLASS SCHMUCK>

(30): (setf sch (make-instance 'schmuck))
#<SCHMUCK oid:121651>

(31): (slot-value sch 'a)
#(0 0 0 0)

(32): (setf (aref (slot-value sch 'a) 2) 1)
1

(33): (slot-value sch 'a)
#(0 0 0 0)

(34): ; ouch

Can everyone reproduce this?
Or did I experience a nasty case of oversight here like so often?

  Leslie