anchor.diff:         (make-score-script (cdr subtree) opinion-store)))
       optree)))
   
  -(declaim (ftype (function (warflagger:extended-opinion) boolean) opinion-collapsible-p))
  -
  -(defun opinion-collapsible-p (opinion)
  -  (and (eq :blank (last-car (assoc :flag opinion)))
  -       ;;FIXME: Clean-comment might not be the correct test. Case of comment consisting only
  -       ;; of hash tags as an example.
  -       (not (not-empty (and (assoc :clean-comment opinion) (assoc-cdr :clean-comment opinion))))))
  -
   ;;FIXME: add types/checking
   (defun process-hashtag (tag opinion)
     (list 'hashtag tag :iid (assoc-cdr :iid opinion) :author (assoc-cdr :author opinion)))
  
positive.code: (defun title-script (tree)
    (remove-if-not #'title-comments-tree-p tree))
  
  (defun regular-script (tree)
    (remove-if (lambda (itm) (or (text-comments-tree-p itm) (title-comments-tree-p itm))) tree))
  
  
  
negative.code:                            (assoc-cdr :hashtags opinion)))
           (dircode (mapcar (lambda (dirc) (process-directive dirc opinion))
                            (assoc-cdr :directives opinion))))
      (list (append (process-opinion opinion) hashcode dircode children))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Score script interpreter
  