---
Test
---
Shows object composition, a default method, and two different ways of referencing objects.

| script           | lisp interpreter fixture                 |
| check | evaluate | (load "lisp/object/fruit-counter.lisp")  | T    |
| check | evaluate | (my-fruits :inc-apples)                  | 1    |
| check | evaluate | (my-fruits :inc-apples)                  | 2    |
| check | evaluate | (funcall my-fruits2 :dec-bananas)        | 9999 |
| check | evaluate | (my-fruits :set-coconuts 12)             | 12   |
| check | evaluate | (my-fruits)                              | ((APPLES 2) (BANANAS 0) (COCONUTS 12))           |
| check | evaluate | (funcall my-fruits2)                     | ((APPLES 10000) (BANANAS 9999) (COCONUTS 10000)) |