anchor.diff:         (find-vertex graph destination-key)))))
   
   (defmethod send ((game game) message &rest rest)
  -  (apply #'send (slot-value game 'fsm) message rest))
  +  (apply #'send (slot-value game 'fsm) message rest)
  +  game)
   
   (defgeneric add-player (game name)
     (:method ((game game) (name string))
  
positive.code:                 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 "~&~t~a~&~t~tDueño:~t~t~a~&~t~tEjércitos:~t~t~a"
  
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) (armies territory)))))
  
  (defgeneric move-armies (game from to amount)
    (:method ((game game) origin-key destination-key amount)
  