Parent Directory | Revision Log | Patch
revision 1.16 by pfdietz, Sun Jul 27 15:30:39 2003 UTC | revision 1.17 by pfdietz, Sat Aug 20 02:18:23 2005 UTC | |
---|---|---|
# | Line 391 | Line 391 |
391 | (c2 (make-instance 'class-13 :s1 'foo))) | (c2 (make-instance 'class-13 :s1 'foo))) |
392 | (values | (values |
393 | (slot-value c1 's1) | (slot-value c1 's1) |
394 | (slot-value c1 's1))) | (slot-value c2 's1))) |
395 | foo foo) | foo foo) |
396 | ||
397 | ;;; | ;;; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |