Commit 13f6009b authored by pfdietz's avatar pfdietz
Browse files

Added a class redefinition test that illustrates a bug in cmucl

parent f6de8934
...@@ -178,3 +178,15 @@ ...@@ -178,3 +178,15 @@
collect (a-slot obj)) collect (a-slot obj))
(nil x y x x x x y)) (nil x y x x x x y))
;;; A class redefinition test that came up in cmucl
(deftest class-0307.1
(progn
(setf (find-class 'class-0307a) nil
(find-class 'class-0307b) nil)
(eval '(defclass class-0307a () ()))
(eval '(defclass class-0307b (class-0307a) (a)))
(eval '(defclass class-0307a () ((a :initform nil))))
(eval '(defclass class-0307b (class-0307a) ((a :initform 'x))))
(slot-value (make-instance 'class-0307b) '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