anchor.diff:            (typecase game-map
               (game-map game-map)
               (t (read-map game-map))))
  -    (setf the-players (make-hash-table :test 'equalp))
  -    (setf the-players-round nil)
       (dolist (name players)
         (pushnew (add-player game name) the-players-round))
       (setf the-players-round (reverse the-players-round))
       (nconc the-players-round the-players-round)
       (setf the-turn-player the-players-round)
  -    (setf the-pending-armies nil)
       (setf the-fsm
             (flet
               ((pass-placing (fsm old-armies new-state
  
positive.code:                             :attacking))))
                  :placing
                  (:place ((fsm where amount)
                           (place-armies game where amount))
                   :done ((fsm)
                          (pass-placing fsm
  
negative.code:        (error "Los territorios deben ser divisibles entre los jugadores"))
       (loop
         with territories = (shuffle (territory-keys game))
         for player in (slot-value game 'players-round)
         for territory in territories do
         (setf (owner (territory game territory)) player)
         (setf (armies (territory game territory)) 1)))))
  