anchor.diff:                 (make-instance 'territory
                                 :territory-name name
                                 :extra-armies extra-armies))
  -         (dolist (frontierkey terr-frontiers)
  -           (add-edge-between-vertexes frontiers key frontierkey))))
  +         (dolist (frontier-key terr-frontiers)
  +           (add-edge-between-vertexes frontiers key frontier-key))))
        (make-instance 'game-map
                       :territories territories
                       :frontiers frontiers
  
positive.code:                  :done ((fsm)
                          (switch fsm :regrouping)))
                  :regrouping
                  (:move ((fsm from to amount)
                          (%move-armies game from to amount))
                   :done ((fsm)
                          (switch fsm
                            (if (%pass-turn game)
                              (progn
                                (setf the-pending-armies (placeable-armies))
                                :placing)
                              :attacking))))
                  :placing
                  (:place ((fsm where amount)
                           (%place-armies game where amount))
  
negative.code:   (send game :attack from to))
  
  (defmethod move-armies ((game game) from to amount)
    (send game :move-armies from to amount))
  
  (defgeneric shuffle-territories (game)
    (:method ((game game))
  