190 |
(eval '(defclass class-0307b (class-0307a) ((a :initform 'x)))) |
(eval '(defclass class-0307b (class-0307a) ((a :initform 'x)))) |
191 |
(slot-value (make-instance 'class-0307b) 'a)) |
(slot-value (make-instance 'class-0307b) 'a)) |
192 |
x) |
x) |
193 |
|
|
194 |
|
(deftest class-0308.1 |
195 |
|
(progn |
196 |
|
(setf (find-class 'class-0308a) nil |
197 |
|
(find-class 'class-0308b) nil) |
198 |
|
(eval '(defclass class-0308a () ())) |
199 |
|
(eval '(defclass class-0308b (class-0308a) (a))) |
200 |
|
(eval '(defclass class-0308a () ((a :initarg :a)))) |
201 |
|
(eval '(defclass class-0308b (class-0308a) ())) |
202 |
|
(slot-value (make-instance 'class-0308b :a 'x) 'a)) |
203 |
|
x) |
204 |
|
|
205 |
|
|