transcendental-lisp/fitnesse/FitNesseRoot/LispInterpreter/MultipleMethodClosure.wiki

---
Test
---
| script           | lisp interpreter fixture                |
| #    | Object with multiple methods                        |
| show | evaluate  |!-

(defun counter-class ()
  (let ((counter 0))
    (lambda (msg)
      (case msg
        ((:inc)
          (setq counter (+ counter 1)))
        ((:dec)
          (setq counter (- counter 1)))))))

                                                           -!|
| show  | evaluate | (setq my-counter (counter-class))       |
| check | evaluate | (funcall my-counter :inc)               | 1 |
| check | evaluate | (funcall my-counter :inc)               | 2 |
| check | evaluate | (funcall my-counter :inc)               | 3 |
| check | evaluate | (funcall my-counter :dec)               | 2 |
| check | evaluate | (funcall my-counter :dec)               | 1 |
| check | evaluate | (funcall my-counter :dec)               | 0 |