anchor.diff: -(in-package :cl-user)
  +(in-package :cl-user
  +            (:export
  +             #:has-found-excerpt-p))
   
   
   (defpackage #:wf/ipfs
  
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:                     (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))
  