Commit deaa9945 authored by pfdietz's avatar pfdietz
Browse files

Added test at instigation of CR for initialization of shared slots.

parent 1854d4d7
......@@ -634,6 +634,25 @@
(t nil)
(defclass shared-init-class-09 ()
((a :allocation :class :initform 'x)
(b :initform 'y)))
(deftest shared-initialize.9.1
(let* ((class (find-class 'shared-init-class-08))
(obj (allocate-instance class)))
(slot-makunbound obj 'a)
(map-slot-boundp* obj '(a b))
(eqt obj (shared-initialize obj '(b)))
(map-slot-boundp* obj '(a b))
(slot-value obj 'b)))
(nil nil)
(nil t)
;;; Error tests
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment