anchor.diff:                      (mapcar #'opinion-by-id (target-replies (get-target-url key)))))
            (replies (if (equal key starting-key)
                         (remove-if-not #'wf/ipfs::opinion-applies-to-title replies) replies))
  +         (replies (remove-if-not #'wf/ipfs:has-found-excerpt-p replies))
            (title nil))
       (when (not iid)
         (add-root-title-info warstats rooturl))
  
positive.code: 
  (defun has-excerpt-p (opinion)
    (assoc :excerpt opinion))
  
  (defun opinion-target-same-author-p (opinion)
    (when-let* ((treead (assoc-cdr :tree-address opinion))
  
negative.code: (in-package :cl-user
              (:export
               #:has-found-excerpt-p))
  
  
  (defpackage #:wf/ipfs
  