anchor.diff:        (error "Los territorios deben estar conectados"))
       (unless (eq (owner origin) (owner destination))
         (error "Los territorios tienen que tener el mismo dueño"))
  -    (unless (eq (owner origin) (turn-player game))
  -      (error "El jugador de turno no controla esos territorios"))
       (unless (> amount 0)
         (error "No se pueden mover 0 o menos ejércitos"))
       (unless (> (armies origin) amount)
  
positive.code:   ((name (error "Debe ingresar el nombre del jugador") ir)))
  
  (defclass* game ()
    ((turn-player nil a)
     (territories (error "Debe especificar los territorios") ir)
     (frontiers (error "Debe especificar las fronteras") ir)))
  
  (defgeneric read-map (file &key)
  
negative.code:   (let ((territory (territory game territory-key)))
      (unless (> amount 0)
        (error "No se pueden poner 0 o menos ejércitos"))
      (incf (armies territory) amount)))
  
  (defgeneric attack (game from to &key))
  