anchor.diff:  (defun set-direction (warstat direction)
     (setf (gethash :direction warstat) (or direction :neutral)))
   
  +;;FIXME: doesn't seem to function. Tree freshness should never be nil
   (defun set-tree-freshness (warstat &rest timestamps)
     (setf
      (gethash :tree-freshness warstat)
  
positive.code:           (*ballot-box* (warflagger:make-ballot-box))
            (*text-ballot-box* (warflagger:make-ballot-box))
            (*title-ballot-box* (warflagger:make-ballot-box))
            (*warstat* (make-hash-table))
            (*text-warstat* (make-hash-table))
            (*title-warstat* (make-hash-table))
            (*apply-to* nil)
  
negative.code:          node))
     code))
  
  (defun initialize-warstats ()
    (hu:hash
     (:replies-immediate 0)
     (:replies-total 0)
     (:tree-freshness nil)
     (:x-right 0)
     (:x-wrong 0)
     (:x-up 0)
     (:x-down 0)
     ;; FIXME: Should effect and controversy be prefixed with x?
     (:x-effect 0)
     (:x-controversy 0)))
  
  (defun stick-other-flag-on-target (flag ballot-box warstat)
    (multiple-value-bind (right up wrong down) (warflagger:ballot-box-totals ballot-box)
  