Parent Directory | Revision Log | Patch
revision 1.10 by pfdietz, Sat May 10 14:14:43 2003 UTC | revision 1.11 by pfdietz, Sat May 10 17:14:56 2003 UTC | |
---|---|---|
# | Line 641 | Line 641 |
641 | (b :initform 'y))) | (b :initform 'y))) |
642 | ||
643 | (deftest shared-initialize.9.1 | (deftest shared-initialize.9.1 |
644 | (let* ((class (find-class 'shared-init-class-08)) | (let* ((class (find-class 'shared-init-class-09)) |
645 | (obj (allocate-instance class))) | (obj (allocate-instance class))) |
646 | (slot-makunbound obj 'a) | (slot-makunbound obj 'a) |
647 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |