- (let ((fsm-name (cadr fsm))
- (old-state (plist-get (cddr fsm) :state)))
- (plist-put (cddr fsm) :state new-state)
- (plist-put (cddr fsm) :state-data new-state-data)
+ "Update FSM with NEW-STATE, NEW-STATE-DATA and TIMEOUT."
+ (let ((fsm-name (get fsm :name))
+ (old-state (get fsm :state)))
+ (put fsm :state new-state)
+ (put fsm :state-data new-state-data)