anchor.diff:            (:target-title
              :key 0
              :... (@ this props)
  -           " "
  -           (:general-opinion-knobdule
  -            :key 1
  -            :... (@ this props)
  -            :focus (state focus)
  -            :opinions (prop opinions)
  -            :tree-address (list)
  -            :focusfunc (@ this focus-func)))
  +           " ")
             (:h3
              :style (create 'font-style "italic" :background "lightgrey")
              :key 2
  
positive.code:                                         'hilited-text-id
                                          (strcat "hilited-text-" id))))))))
  
      (defun %make-opin-popups (opinions props)
        (loop for op in opinions
           for (x y) in (opinion-fan (length opinions))
           collect
             (psx (:mini-opinion :... props
                                 :opinion (@ op 0)
                                 :opinions (chain op (slice 1))
                                 :top (+ y (lisp *unit-string*))
                                 :left (+ x (lisp *unit-string*))
                                 :key (unique-id)))))
  
      (defun %get-replies-count (opinions props)
        (let ((total 0))
          (dolist (op opinions)
  
negative.code:                          (< 0 (@ o 0 excerpt length)))
                (collect o)))))
  
      (def-component excerptless-opinions
          (psx
           (:div
            :style (create 'margin-top "2em")
            (:h3 :key 1 "General Opinions:")
            (collecting
                (dolist (op (prop tree-addresses))
                  (when (> 2 (@ op length)) ;opinion is on root article
                    (let* ((opid (elt op 0))
                           (opin (getprop (prop opinion-store) opid)))
                      (unless (has-excerpt-p opin)
                        (collect
                            (psx
  