> ;; Shared slot becomes local.
> ;; 22.214.171.124.: "The value of a slot that is specified as shared in the old class
> ;; and as local in the new class is retained."
> (multiple-value-bind (value condition)
> (defclass foo85a () ((size :initarg :size :initform 1 :allocation :class)))
> (defclass foo85b (foo85a) ())
> (setq i (make-instance 'foo85b))
> (defclass foo85a () ((size :initarg :size :initform 2) (other)))
> (slot-value i 'size))
> (list value (type-of condition)))
> Expected: (1 NULL)
> Got: (2 NULL)
> [Taken from clisp's clos.tst] [Bug also present in CMUCL 18e]
The attached patch fixes this and adds a regression test. No new ansi-test