Commit fa902c61 authored by pfdietz's avatar pfdietz
Browse files

Added another shared slot test.

parent 56ccf14c
......@@ -372,3 +372,17 @@
t
(nil t)
foo)
(deftest shared-initialize.5.2
(let* ((class (find-class 'shared-init-class-05))
(obj (allocate-instance class)))
(slot-makunbound obj 'a)
(slot-makunbound obj 'b)
(values
(eqt obj (shared-initialize obj '(b)))
(map-slot-boundp* obj '(a b))
(slot-value obj 'b)))
t
(nil t)
foo)
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