anchor.diff:          (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))))
  +
  
positive.code: (in-package :ar.com.fchurca.frisk)
  
  (defclass* territory ()
    ((name (error "Debe ingresar el nombre del territorio") ir)
  
negative.code:      (error "Debe ingresar la cantidad de ejércitos adicionales del territorio")
       ir)
     (owner nil 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)
     (players (make-hash-table) r)))
  
  (defgeneric read-map (file &key)
    (:method ((file stream) &key)
  