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 _______________________________________________ elephant-devel site list elephant-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/elephant-devel
