Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sun May 4 20:24:30 2003 UTC | revision 1.3 by pfdietz, Sun May 4 22:09:11 2003 UTC | |
---|---|---|
# | Line 418 | Line 418 |
418 | (t nil nil) | (t nil nil) |
419 | 123) | 123) |
420 | ||
421 | (deftest change-class.6.3 | |
422 | (let* ((class (find-class 'change-class-class-06)) | |
423 | (obj (make-instance class :a 'bad))) | |
424 | (values | |
425 | (map-slot-boundp* obj '(a b c)) | |
426 | (eqt obj (change-class obj class :a 'also-bad)) | |
427 | (map-slot-boundp* obj '(a b c)) | |
428 | (slot-value obj 'a) | |
429 | )) | |
430 | (t nil nil) | |
431 | t | |
432 | (t nil nil) | |
433 | 123) | |
434 | ||
435 | ||
436 | ;;; Error tests | ;;; Error tests |
437 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |