anchor.diff:                :text (prop text)
                 :opinions (prop opinions)
                 :focus (state focus)
  -              :focus-func (@ this focus-func))))
  +              :focus-func (@ this focus-func)
  +              :tree-address (list))))
            handle-click
            (lambda () (set-state focus undefined))
            focus-func
  
positive.code:        (defun %overlap-p (start1 end1 start2 end2)
           (not (or (> start1 end2) (> start2 end1))))
  
         (defun focus-p (focus-spec)
           (and focus-spec (< 0 (@ focus-spec length))))
  
         (defun focus-parent-p (opins focus-spec)
           (dolist (o opins)
  
negative.code:            (psx
              (:div
               :class
               (if (focus-p (@ this props)) "hilited" "hilited-parent")
               (%make-segments (prop text)
                               (remove-if-not
                                (lambda (x)
                                  (chain (@ x 0) (has-own-property :excerpt)))
                                (prop opinions))
                               (@ this props)))))
  
         (def-component flag-display
             (psx
              (:span (prop flag 1))))
  
         (defun %make-opin-popups (opinions props)
           ;(setf opinions (mock-opinions 30))
           (loop for op in opinions
                 for (x y) in (opinion-fan (length opinions))
                 collect
                 (psx (:mini-opinion :... props
                                     :opinion (@ op 0)
                                     :top (+ y (lisp *unit-string*))
                                     :left (+ x (lisp *unit-string*))
                                     :key (unique-id)))))
  
         (def-component
             mini-opinion
  