Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Fri May 2 12:05:11 2003 UTC | revision 1.5 by pfdietz, Fri May 2 12:11:00 2003 UTC | |
---|---|---|
# | Line 372 | Line 372 |
372 | t | t |
373 | (nil t) | (nil t) |
374 | foo) | foo) |
375 | ||
376 | (deftest shared-initialize.5.2 | |
377 | (let* ((class (find-class 'shared-init-class-05)) | |
378 | (obj (allocate-instance class))) | |
379 | (slot-makunbound obj 'a) | |
380 | (slot-makunbound obj 'b) | |
381 | (values | |
382 | (eqt obj (shared-initialize obj '(b))) | |
383 | (map-slot-boundp* obj '(a b)) | |
384 | (slot-value obj 'b))) | |
385 | t | |
386 | (nil t) | |
387 | foo) | |
388 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |