Commit 44ac5fed authored by pfdietz's avatar pfdietz
Browse files

Another error-producing class redefinition tests.

parent 13f6009b
......@@ -190,3 +190,16 @@
(eval '(defclass class-0307b (class-0307a) ((a :initform 'x))))
(slot-value (make-instance 'class-0307b) 'a))
x)
(deftest class-0308.1
(progn
(setf (find-class 'class-0308a) nil
(find-class 'class-0308b) nil)
(eval '(defclass class-0308a () ()))
(eval '(defclass class-0308b (class-0308a) (a)))
(eval '(defclass class-0308a () ((a :initarg :a))))
(eval '(defclass class-0308b (class-0308a) ()))
(slot-value (make-instance 'class-0308b :a 'x) 'a))
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