anchor.diff:          (post-other-flag t)
           (other-flags (make-hash-table))
           (direction :neutral)
  +        (direction-on-root :neutral)
           (alternatives nil)
           (delayed-procedures nil)
           (enabled t))
  
positive.code:       (lambda (cmd param &rest params)
          (case cmd
            (:direction
             (setf direction (or param :neutral)))
            (:info
             (case param
               (:parent parent-dispatch)
               (:enabled enabled)
               (:direction direction)
               (:ballot-box ballot-box)
               (:other-flag other-flag)
               (otherwise (getf info param))))
  
negative.code:            (let ((data (hu:hash
                          (:ballot-box ballot-box) (:text-ballot-box text-ballot-box)
                          (:title-ballot-box title-ballot-box) (:tree-freshness tree-freshness)
                          (:direction direction) (:direction-on-root direction-on-root)
                          (:replies-total replies-total)
                          (:replies-immediate replies-immediate) (:other-flags other-flags)
                          (:alternatives alternatives))))
               (setf (gethash key score-script-support::*score-data*) data)))
  