Skip to content
Snippets Groups Projects
Commit 9976492d authored by rtoy's avatar rtoy
Browse files

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)
parent 4bbc6932
No related branches found
No related tags found
No related merge requests found
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment