Commit 6b8ea3ed authored by pfdietz's avatar pfdietz
Browse files

More tests. Note that some of these seem to be failing in cmucl/sbcl when the...

More tests.  Note that some of these seem to be failing in cmucl/sbcl when the file is reloaded.  This is probably some kind of caching error in PCL.
parent 5a6db6b2
......@@ -215,3 +215,18 @@
t t t
x y z)
;;;
;;; Initforms are inherited even if :allocation changes
(defclass class-0208a ()
((a :allocation :class :initform 'x)))
(defclass class-0208b (class-0208a)
((a :allocation :instance)))
(deftest class-0208.1
(values
(slot-value (make-instance 'class-0208a) 'a)
(slot-value (make-instance 'class-0208b) '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