21 lines
988 B
Plaintext
21 lines
988 B
Plaintext
---
|
|
Test
|
|
---
|
|
Shows the usage of a static variable.
|
|
''"Let Over Lambda Over Let Over Lambda"''
|
|
|
|
| script | lisp interpreter fixture |
|
|
| show | evaluate text | (load "lisp/object/static.lisp") |
|
|
| show | evaluate text | (setq my-counter (counter-class)) |
|
|
| check | evaluate text | (funcall my-counter) | 1 |
|
|
| check | evaluate text | (funcall my-counter) | 2 |
|
|
| check | evaluate text | (funcall my-counter) | 3 |
|
|
| show | evaluate text | (toggle-counter-direction) |
|
|
| check | evaluate text | (funcall my-counter) | 2 |
|
|
| check | evaluate text | (funcall my-counter) | 1 |
|
|
| check | evaluate text | (funcall my-counter) | 0 |
|
|
| show | evaluate text | (toggle-counter-direction) |
|
|
| check | evaluate text | (funcall my-counter) | 1 |
|
|
| check | evaluate text | (funcall my-counter) | 2 |
|
|
| check | evaluate text | (funcall my-counter) | 3 |
|