diff options
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/stslot.expected | 0 | ||||
| -rw-r--r-- | tests/012/stslot.tl | 23 |
2 files changed, 23 insertions, 0 deletions
diff --git a/tests/012/stslot.expected b/tests/012/stslot.expected new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/tests/012/stslot.expected diff --git a/tests/012/stslot.tl b/tests/012/stslot.tl new file mode 100644 index 00000000..80faa0db --- /dev/null +++ b/tests/012/stslot.tl @@ -0,0 +1,23 @@ +(load "../common") + +(defstruct base nil) + +(defstruct derived base) + +(defstruct child derived) + +(defmeth child omega (me) 'child-omega) + +(defmeth derived alpha (me) 'derived-alpha) +(defmeth derived beta (me) 'derived-beta) + +(defmeth base gamma (me) 'base-gamma) +(defmeth base delta (me) 'base-delta) + +(defmeth derived gamma (me) 'derived-gamma) +(defmeth derived delta (me) 'derived-delta) + +(let ((o (new child))) + (test (list o.(omega) o.(alpha) o.(beta) o.(gamma) o.(delta)) + (child-omega derived-alpha derived-beta derived-gamma derived-delta))) + |