Patch from Gerd Moellmann, cmucl-imp, 2005-05-21:
;; Shared slot becomes local. ;; 4.3.6.1.: "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) (ignore-errors (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)
Loading
Please register or sign in to comment