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:             (incf effect (car reffects)) (incf controv (second reffects))))))
      ;;Main: from the reference slot
      ;;Extra: from comment body
      (list
       :reference-effect-main meffect
       :reference-controversy-main mcontrov
       :reference-effect-extra effect
       :reference-controversy-extra controv
       ;; referenced for rootURL is filled in elsewhere
       :referenced (and opinion (get-references-to (assoc-cdr :url opinion))))))
  
  (defun opinion-axis-data (optree)
    (list*
  
negative.code:   ;;(/ (getf axis-data :looks) (getf axis-data :replies-total))
    1)
  
  (defun calculate-axdat-effect (axis-data opinion)
    (labels ((getx (key)
               (car (getf axis-data key))))
  