Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Fri May 2 12:11:00 2003 UTC | revision 1.6 by pfdietz, Sat May 3 15:51:22 2003 UTC | |
---|---|---|
# | Line 386 | Line 386 |
386 | (nil t) | (nil t) |
387 | foo) | foo) |
388 | ||
389 | (deftest shared-initialize.5.3 | |
390 | (let* ((class (find-class 'shared-init-class-05)) | |
391 | (obj (allocate-instance class)) | |
392 | (obj2 (allocate-instance class))) | |
393 | (slot-makunbound obj 'a) | |
394 | (slot-makunbound obj 'b) | |
395 | (values | |
396 | (eqt obj (shared-initialize obj t :a 117)) | |
397 | (map-slot-boundp* obj '(a b)) | |
398 | (map-slot-value obj '(a b)) | |
399 | (map-slot-value obj2 '(a b)))) | |
400 | t | |
401 | (t t) | |
402 | (117 foo) | |
403 | (117 foo)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |