anchor.diff:    (let ((territory (territory game territory-key)))
       (unless (> amount 0)
         (error "No se pueden poner 0 o menos ejércitos"))
  -    (unless (eq (owner territory) (turn-player game))
  -      (error "El jugador de turno no controla ese territorio")) 
       (incf (armies territory) amount)))
   
   (defgeneric attack (game from to &key))
  
positive.code:       (error "Los territorios deben estar conectados"))
      (unless (> attackers 2)
        (error "No se puede atacar teniendo 2 o menos ejércitos"))
      (unless (eq (owner origin) (turn-player game))
        (error "El jugador de turno no controla ese territorio"))
      (when (equal (owner destination) (owner origin))
        (error "Un jugador no se puede atacar a sí mismo"))
      (let ((decrement (1+ (min defenders (- attackers 2)))))
  
negative.code:       (error "Los territorios deben estar conectados"))
      (unless (eq (owner origin) (owner destination))
        (error "Los territorios tienen que tener el mismo dueño"))
      (unless (> amount 0)
        (error "No se pueden mover 0 o menos ejércitos"))
      (unless (> (armies origin) amount)
  