anchor.diff:     #:prep-scsc-for-execution
      #:*warstats*
      #:*text-warstats*
  -   #:*title-warstats*))
  +   #:*title-warstats*
  +   #:*dispatch*
  +   #:*score-data*))
   
   (defpackage #:score-script
     (:use #:cl #:gadgets #:alexandria)
  
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: ;;FIXME: this should go away
  (defun statements-evidence (&key iid author modifiers)
    (let ((vv (assoc-cdr :vote-value (warflagger:opinion-by-id iid))))
      (cond ((eql vv 1) (scsc::positive-evidence :iid iid :author author :modifiers modifiers))
            ((eql vv -1) (scsc::negative-evidence :iid iid :author author :modifiers modifiers))
            ;;FIXME: why null? should be zero?
            ((null vv) (scsc::positive-evidence :iid iid :author author :modifiers modifiers))
            (t (warn "Unhandled statements-evidence flag")))))
  
  (defflag scsc::negative-evidence
  