(has-state? receiver state-name)
  receiver: an obj or a class
  state-name: a sym
  returns a bool

Returns #t if an object or class has a particular state.

(has-state? rcv 'Main) always returns #t.