anchor.diff:  (defclass* game ()
     ((game-map nil r)
      (players nil r)
  +   (fsm nil)
      (players-round nil)
      (turn-player nil)))
   
  
positive.code:    (with-slots ((the-turn-player turn-player)
                  (the-players-round players-round)) game
       (pop the-turn-player)
       (when (eq the-turn-player the-players-round)
         (pass-head game)
         (pop the-turn-player)))
     (turn-player game)))
  
  (defmethod territories ((game game))
    (territories (game-map game)))
  
negative.code: (defgeneric reset-movable-armies (game)
    (:method ((game game))
     (loop for territory being the hash-values in (territories game) do
           (setf (movable-armies territory) (1- (armies territory))))))
  
  (defgeneric move-armies (game from to amount)
    (:method ((game game) origin-key destination-key amount)
  