230 |
(slot-value (make-instance 'class-0208a) 'a) |
(slot-value (make-instance 'class-0208a) 'a) |
231 |
(slot-value (make-instance 'class-0208b) 'a)) |
(slot-value (make-instance 'class-0208b) 'a)) |
232 |
x x) |
x x) |
233 |
|
|
234 |
|
;;; |
235 |
|
|
236 |
|
;;; That was failing when things were reloaded. |
237 |
|
;;; Try a test that redefines it |
238 |
|
|
239 |
|
(deftest class-redefinition.1 |
240 |
|
(let* |
241 |
|
((cobj1 (eval '(defclass class-0209a () |
242 |
|
((a :allocation :class :initform 'x))))) |
243 |
|
(cobj2 (eval '(defclass class-0209b (class-0209a) |
244 |
|
((a :allocation :instance))))) |
245 |
|
(cobj3 (eval '(defclass class-0209a () |
246 |
|
((a :allocation :class :initform 'x))))) |
247 |
|
(cobj4 (eval '(defclass class-0209b (class-0209a) |
248 |
|
((a :allocation :instance)))))) |
249 |
|
(values |
250 |
|
(eq cobj1 cobj3) |
251 |
|
(eq cobj2 cobj4) |
252 |
|
(class-name cobj1) |
253 |
|
(class-name cobj3) |
254 |
|
(slot-value (make-instance 'class-0209a) 'a) |
255 |
|
(slot-value (make-instance 'class-0209b) 'a))) |
256 |
|
t t |
257 |
|
class-0209a |
258 |
|
class-0209b |
259 |
|
x x) |
260 |
|
|