2017-03-02 16:36:23 -05:00
|
|
|
---
|
|
|
|
|
Test
|
|
|
|
|
---
|
|
|
|
|
An object with multiple methods.
|
|
|
|
|
|
2017-03-06 16:52:06 -05:00
|
|
|
| script | lisp interpreter fixture |
|
|
|
|
|
| show | evaluate text | (load "lisp/object/multiple-methods.lisp") |
|
|
|
|
|
| show | evaluate text | (setq my-counter (counter-class)) |
|
|
|
|
|
| check | evaluate text | (funcall my-counter :inc) | 1 |
|
|
|
|
|
| check | evaluate text | (funcall my-counter :inc) | 2 |
|
|
|
|
|
| check | evaluate text | (funcall my-counter :inc) | 3 |
|
|
|
|
|
| check | evaluate text | (funcall my-counter :dec) | 2 |
|
|
|
|
|
| check | evaluate text | (funcall my-counter :dec) | 1 |
|
|
|
|
|
| check | evaluate text | (funcall my-counter :dec) | 0 |
|
