anchor.diff:       (error "Debe ingresar la cantidad de ejércitos adicionales del territorio")
        ir)
      (owner nil a)
  -   (armies 0 a)))
  +   (armies nil a)))
   
   (defclass* player ()
     ((name (error "Debe ingresar el nombre del jugador") ir)))
   
   (defclass* game ()
     ((territories (error "Debe especificar los territorios") ir)
  -   (frontiers (error "Debe especificar las fronteras") ir)))
  +   (frontiers (error "Debe especificar las fronteras") ir)
  +   (players (make-hash-table) r)))
   
   (defgeneric read-map (file &key)
     (:method ((file stream) &key)
  
positive.code: (in-package :ar.com.fchurca.frisk)
  
  (defclass* territory ()
    ((name (error "Debe ingresar el nombre del territorio") ir)
  
negative.code:         (move-armies game origin-key destination-key 1)))
      (eq (owner origin) (owner destination))))
  
  (defun print-game (game)
    (format t "~&Jugadores:")
    (loop for v being the hash-values in (players game) do
          (format t "~&~t~a" (name v)))
    (format t "~&Territorios:")
    (loop for v being the hash-values in (territories game) do
          (format t "~&~a~&~tDueño:~t~a~&~tEjércitos:~a"
                  (name v)
                  (if (owner v) (name (owner v)) "Ninguno")
                  (armies v))))
  
  