anchor.diff:          (territories (make-hash-table))
           (filecontents (read file)))
       (dolist (territory (getf filecontents :territories))
  -      (setf (gethash (car territory) territories)
  -            (make-instance 'territory
  -                           :name (second territory)
  -                           :extra-armies (third territory))))
  +      (destructuring-bind (key name extra-armies) territory
  +        (setf (gethash key territories)
  +              (make-instance 'territory
  +                             :name name
  +                             :extra-armies extra-armies))))
       territories))
   
   (defmethod read-map ((path pathname))
  
positive.code:   (decf (armies origin) amount)
    (incf (armies destination) amount))
  
  
negative.code:            :armies
             :player
             :read-map
             :move-armies
             :place-armies
             :attack))
  
  (in-package :ar.com.fchurca.frisk)
  
  