anchor.diff:         (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 player in (slot-value game 'players-round)
          for territory in territories do
          (setf (owner (territory game territory)) player)
          (setf (armies (territory game territory)) 1)))))
  
positive.code:                             :attacking))))
                  :placing
                  (:place ((fsm where amount)
                           (place-armies game where amount))
                   :done ((fsm)
                          (pass-placing fsm
  
negative.code:                         (switch fsm :placing-twice-n)))
                  :placing-twice-n
                  (:place ((fsm where amount)
                           (declare (ignorable fsm))
                           (place-armies game where amount))
                   :done ((fsm)
                          (pass-placing fsm 10 :placing-n 5)))
                  :placing-n
                  (:place ((fsm where amount)
                           (declare (ignorable fsm))
                           (place-armies game where amount))
                   :done ((fsm)
                          (pass-placing fsm 5 :attacking)
                          (reset-movable-armies game)))
                  :attacking
                  (:attack ((fsm from to)
                            (declare (ignorable fsm))
                            (attack game from to))
                   :done ((fsm)
                          (switch fsm :regrouping)))
                  :regrouping
                  (:move ((fsm from to amount)
                          (declare (ignorable fsm))
                          (move-armies game from to amount))
                   :done ((fsm)
                          (switch fsm
  