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)
foo)
;;;
(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)
(values
(map-slot-boundp* obj '(a b))
(eqt obj (shared-initialize obj '(b)))
(map-slot-boundp* obj '(a b))
(slot-value obj 'b)))
(nil nil)
t
(nil t)
y)
;;; 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