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 (players-round game)
          for territory in territories do
          (setf (owner (territory game territory)) player)
          (setf (armies (territory game territory)) 1)))))
  
positive.code:    (hash-table-keys (players game))))
  
  (defmethod state ((game game))
    (state (slot-value game 'fsm)))
  
  (defmethod armies ((player player))
    (loop for territory being the hash-values in (territories (game player))
  
negative.code:           (flet
              ((pass-placing (fsm old-armies new-state
                                  &optional new-armies playing)
                             (when (plusp the-pending-armies)
                               (error "No se pusieron todos los ejércitos"))
                             (setf the-pending-armies
                                   (if (if playing
  