anchor.diff:           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)
  -   (:effect 0)
  -   (:controversy 0)))
  -
   (in-package :score-script-support)
   ;; Score-script-support is for tools that will be visible from within flags and directives
   
  
positive.code:     (let ((opinion (gensym "opinion")))
        `(defun ,name (&key iid author modifiers)
           (let* ((,opinion (warflagger:opinion-by-id iid))
                  (*dispatch* (scsc-dispatch iid *dispatch*
                                             (list :iid iid :author author :opinion ,opinion))))
             ,@body)))))
  
  
  
  (defflag scsc::negative-spam
  
negative.code: 
  (defun execute-score-script (scsc rooturl opinion-store)
    (declare (type score-script scsc))
    (let* ((warflagger:*opinion-store* opinion-store)
           (scss:*score-data* (make-hash-table))
           ;; tree-address?
           (scss:*dispatch* (scsc-dispatch rooturl nil nil)))
      (mapc #'eval (scss:prep-scsc-for-execution (scss:scsc-safety-symbols scsc)))
      scss:*score-data*))
  
  (defun scsc-dispatch (key parent-dispatch info)
    "key is iid or rooturl"
  