anchor.diff:         (def-component general-opinion-knobdule
              (let* ((all-ops (prop opinions))
                     (opins (collecting
  -                          (dolist (o all-ops)
  -                            (when (and (@ o 0 excerpt)
  -                                       (< 0 (@ o 0 excerpt length)))
  -                              (collect o))))))
  +                           (dolist (o all-ops)
  +                             (unless (and (@ o 0 excerpt)
  +                                          (< 0 (@ o 0 excerpt length)))
  +                               (collect o))))))
                (psx (:span :on-click (@ this handle-click)
  -                         (when opins " X")
  +                         (when (not-empty opins) " X")
                            (:span :style (create position :relative) :key 1
                                   (%make-opin-popups
                                    (if (and (not (prop not-viewable))
  
positive.code:                (let ((common-data
                         (create :opinions
                                 (remove-if-not
                                       (lambda (itm)
                                         (%overlap-p
                                          start (1- end)
                                          (@ itm 0 'text-position 0)
                                          (+ (@ itm 0 'text-position 0)
                                             (@ itm 0 'text-position 1) (- 1))))
                                       opins)
                                 :key (unique-id)
                                 :text (chain text (slice start end))
                                 :focus-func (@ props focus-func)
                                 tree-address (@ props tree-address))))
                   (cond ((< (@ common-data :opinions length) 1)
                          (collect
  
negative.code:   (add-part :@css "/static/css/target.css")
    (add-part :@javascript #'distribute-ranks)
    (add-part :@javascript #'titlebar-components)
    (add-part :@javascript "/static/javascript/jsPlumb-2.0.5.js")
    (add-part :@javascript
              (lambda ()
                (ps (chain js-plumb (ready (lambda ()))))))
    (add-part
     :@javascript
     (lambda ()
  