CL-USER> (defparameter *test* (make-instance 'com.handsomebyte.hsm::machine))
*TEST*
CL-USER> (com.handsomebyte.hsm::transition *test* com.handsomebyte.example::g1)
entry: #<MACHINE {10035D49D3}>, #<G1 {1002A6D0F3}>
init: #<MACHINE {10035D49D3}>, #<G1 {1002A6D0F3}>
(#<STANDARD-CLASS COM.HANDSOMEBYTE.HSM::TOP>
 #<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT>
 #<SB-PCL::SLOT-CLASS SB-PCL::SLOT-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>)
(#<STANDARD-CLASS COM.HANDSOMEBYTE.EXAMPLE::G1>
 #<STANDARD-CLASS COM.HANDSOMEBYTE.HSM::TOP>
 #<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT>
 #<SB-PCL::SLOT-CLASS SB-PCL::SLOT-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>)
#<STANDARD-CLASS COM.HANDSOMEBYTE.HSM::TOP>
NIL
(#<STANDARD-CLASS COM.HANDSOMEBYTE.EXAMPLE::G1>)
#<COM.HANDSOMEBYTE.EXAMPLE::G1 {1002A6D0F3}>
CL-USER>