[toronto-lisp] state machine macro