156 |
(eval |
(eval |
157 |
'(let ((obj (make-instance 'change-class-class-01a)) |
'(let ((obj (make-instance 'change-class-class-01a)) |
158 |
(new-class (find-class 'change-class-class-01b))) |
(new-class (find-class 'change-class-class-01b))) |
159 |
|
(declare (optimize (safety 3))) |
160 |
(eqt obj (change-class obj new-class :nonsense t)))) |
(eqt obj (change-class obj new-class :nonsense t)))) |
161 |
(error () :expected-error)) |
(error () :expected-error)) |
162 |
:expected-error) |
:expected-error) |
419 |
(t nil nil) |
(t nil nil) |
420 |
123) |
123) |
421 |
|
|
422 |
|
;; |
423 |
|
;; This next test seems to fail everywhere, but I don't understand why. |
424 |
|
;; Much gratitude if someone can explain what's wrong here. |
425 |
|
;; |
426 |
|
|
427 |
(deftest change-class.6.3 |
(deftest change-class.6.3 |
428 |
(let* ((class (find-class 'change-class-class-06)) |
(let* ((class (find-class 'change-class-class-06)) |
429 |
(obj (make-instance class :a 'bad))) |
(obj (make-instance class :a 'bad))) |