anchor.diff:       (eq (owner origin) (owner destination)))))
   
   (defmethod print-object ((game game) stream)
  -  (format stream "~&Jugadores:~t~{~a~^, ~}~&Cabecera:~t~a~&Turno:~t~a"
  -          (loop for v being the hash-values in (players game)
  -                collecting (name v))
  -          (head-player game)
  -          (turn-player game))
  +  (format stream "~&Jugadores:~t~{~a~^, ~}"
  +          (loop repeat (size (players game))
  +                for p in (slot-value game 'players-round)
  +                collecting (if (equal p (turn-player game))
  +                             (format nil "-~a-" p)
  +                             p)))
  +  (format stream "~&Etapa:~t~a" (state (slot-value game 'fsm)))
     (format stream "~&Territorios:")
     (loop for v being the hash-values in (territories game) do
  -        (format stream "~&~a~&~tDueño:~t~a~&~tEjércitos:~t~a"
  +        (format stream "~&~t~a~&~t~tDueño:~t~t~a~&~t~tEjércitos:~t~t~a"
                   (name v)
                   (if (owner v) (name (owner v)) "Ninguno")
                   (if (armies v) (armies v) "Ninguno"))))
  
positive.code:     (dolist (name players) (add-player game name))  
      (setf the-players-round (copy-list players))
      (nconc the-players-round the-players-round)
      (setf the-turn-player the-players-round)))
  
  (defgeneric territory (container key)
    (:method ((container game-map) key)
  
negative.code: (defgeneric reset-movable-armies (game)
    (:method ((game game))
     (loop for territory being the hash-values in (territories game) do
           (setf (movable-armies territory) (1- (armies territory))))))
  
  (defgeneric move-armies (game from to amount)
    (:method ((game game) origin-key destination-key amount)
  