anchor.diff:                             (assoc-cdr :hashtags opinion)))
            (dircode (mapcar (lambda (dirc) (process-directive dirc opinion))
                             (assoc-cdr :directives opinion))))
  -    (if (opinion-collapsible-p opinion)
  -        (append hashcode dircode children)
  -        (list (append (process-opinion opinion) hashcode dircode children)))))
  +    (list (append (process-opinion opinion) hashcode dircode children))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; Score script interpreter
  
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:        (make-score-script (cdr subtree) opinion-store)))
      optree)))
  
  ;;FIXME: add types/checking
  (defun process-hashtag (tag opinion)
    (list 'hashtag tag :iid (assoc-cdr :iid opinion) :author (assoc-cdr :author opinion)))
  