Commit c69a7873 authored by pfdietz's avatar pfdietz
Browse files

Another test of :initform inheritance.

parent 35a0a653
......@@ -315,3 +315,17 @@
z
x y z)))
;;; Initforms are inherited even if :allocation changes
(defclass class-0211a ()
((a :allocation :instance :initform 'x)))
(defclass class-0211b (class-0211a)
((a :allocation :class)))
(deftest class-0211.1
(values
(slot-value (make-instance 'class-0211a) 'a)
(slot-value (make-instance 'class-0211b) 'a))
x x)
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