anchor.diff:                                      itempos)))
                  (incf rankcount)))))
   
  -       (defun )
          ))))
   
   (defpsmacro mock-opinions (quantity)
  
positive.code:                     (collect (psx (:br :key (unique-id))))))
                  (slice 0 -1)))
  
         ;;Find all the indices where excerpts start or stop.
         (defun excerpt-segment-points (opset end)
           (chain
  
negative.code:             (collect end))
            (sort (lambda (a b) (- a b)))))
  
         (define-react-class hilited-segment
             (if (> (prop opinions length) 0)
                 (psx
                  (:span
                   :style (create font-weight :bold)
                   :on-click (@ this handle-click)
                   (rebreak (prop text))
                   (:span :style (create position :relative)
                          (%make-opin-popups (if (and (not (prop not-viewable))
                                                      (state viewable))
                                                 (prop opinions)
                                                 ([]))))))
                 (psx
                  (:span :style (create font-weight :normal)
                         (rebreak (prop text)))))
           get-initial-state
           (lambda () (create viewable false))
           handle-click
           (lambda () (unless (prop not-viewable)
                        (set-state viewable (not (state viewable))))))
  
         (defun %make-segments (text opins focus)
           (collecting
             (let ((segpoints (excerpt-segment-points
                               (collecting (dolist (op opins) (collect (@ op 0))))
  