178 |
collect (a-slot obj)) |
collect (a-slot obj)) |
179 |
(nil x y x x x x y)) |
(nil x y x x x x y)) |
180 |
|
|
181 |
|
;;; A class redefinition test that came up in cmucl |
182 |
|
|
183 |
|
(deftest class-0307.1 |
184 |
|
(progn |
185 |
|
(setf (find-class 'class-0307a) nil |
186 |
|
(find-class 'class-0307b) nil) |
187 |
|
(eval '(defclass class-0307a () ())) |
188 |
|
(eval '(defclass class-0307b (class-0307a) (a))) |
189 |
|
(eval '(defclass class-0307a () ((a :initform nil)))) |
190 |
|
(eval '(defclass class-0307b (class-0307a) ((a :initform 'x)))) |
191 |
|
(slot-value (make-instance 'class-0307b) 'a)) |
192 |
|
x) |