anchor.diff:                   :done ((fsm)
                           (switch fsm :regrouping)))
                   :regrouping
  -                (:move ((fsm from to amount)
  -                        (%move-armies game from to amount))
  +                (:move-armies ((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))))
  +                                (if (%pass-turn game)
  +                                  (progn
  +                                    (setf the-pending-armies
  +                                          (placeable-armies))
  +                                    :placing)
  +                                  :attacking))))
                   :placing
                   (:place ((fsm where amount)
                            (%place-armies game where amount))
  
positive.code:                (make-instance 'territory
                                :territory-name name
                                :extra-armies extra-armies))
           (dolist (frontierkey terr-frontiers)
             (add-edge-between-vertexes frontiers key frontierkey))))
       (make-instance 'game-map
                      :territories territories
                      :frontiers frontiers
  
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))
  