anchor.diff:           (*reference-list* (or reference-cache
                                  (reference-list-for-rooturl rooturl)))
            (root-ax (opinion-axis-data (list* nil tree))))
  +    (setf (getf root-ax :referenced) (get-references-to rooturl))
  +    (setf (getf root-ax :referenced-effect)
  +          (referenced-effect (getf root-ax :referenced)))
       (setf (getf root-ax :effect) (calculate-axdat-effect root-ax nil))
       (setf (getf root-ax :controversy) (calculate-axdat-controversy root-ax))
  -    (setf (getf root-ax :referenced) (get-references-to rooturl))
       (setf (gethash :root *opinion-effect-cache*) root-ax)
       ;;FIXME: Side effect!! Need a better way to cache results. This is just a hack for now.
       (setf (gethash rooturl *warstat-store*) root-ax)
  
positive.code:   ;;(/ (getf axis-data :looks) (getf axis-data :replies-total))
    1)
  
  ;;FIXME: Should integrate reference effects?
  (defun calculate-axdat-effect (axis-data opinion)
    (labels ((getx (key)
               (car (getf axis-data key))))
  
negative.code:                         ;;FIXME: This constant should be 1. documented 2. elsewhere
                          ;;represents rooturl initial effect
                          1))
             (raw-score (+ initial likedness (* 2 rightness) worries
                           (getx :referenced-effect))))
        (if (< 0 raw-score)
            (* raw-score (calculate-axdat-interest axis-data))
            0))))
  
  (defun calculate-axdat-controversy (axis-data)
    (labels ((getx (key)
               (car (getf axis-data key))))
  