anchor.diff:                             :refbot (system-generated-p (car node))
                              :refopinid (assoc-cdr :id refopin)
                              :refopinurl (assoc-cdr :url refopin)
  -                           ;;FIXME: Should just be a summary, not the whole tree.
                              :warstats
                              (request-warstats-for-url (assoc-cdr :reference refopin))
                              :warstats-src-url
  
positive.code:   (multiple-value-bind (rid rtype)
        (get-target-id-from-url url)
      (when rid
        (list rid (case rtype
                    (:rooturl :warstats)
                    (:opinion :opinion-warstats)
                    (otherwise
                     (error "Unknown type")))))))
  
  (defun %tidy-loaded-json (json)
    (hu:alist->hash
  
negative.code:           (getf '(:badge "opinion-badge.svg"
                    :tree "tree.json"
                    :warstats "warstats.json"
                    :references "references.json"
                    :questions "questions.json"
                    :opinions "opinions.json"
  