anchor.diff:  
          (defun opinion-fan (item-count)
            (let ((xpos (lambda (y &optional (sway (%make-sway-func 0.5)))
  -                       (funcall sway (+ 0.5 (/ y *opin-box-height*)))))
  +                       (funcall sway (+ 0.5 (/ y (lisp *opin-box-height*))))))
                  (rankcount 0))
              (collecting
                (dolist (ranklen (distribute-ranks-evenly item-count))
                  (dolist (itempos (spread-rank ranklen))
                    (collect
                        (random-wiggle (+ (funcall xpos itempos)
  -                                       (* rankcount *rank-overlap*))
  +                                       (* rankcount (lisp *rank-overlap*)))
                                       itempos)))
                  (incf rankcount)))))
   
  
positive.code: 
         (defun %make-opin-popups (opinions)
           (loop for op in opinions
                 for x, y in (opinion-fan (length opinions))
                 collect
                 (psx (:mini-opinion :opinion (@ op 0)
                                     :top (+ x (lisp *unit-string*))
  
negative.code: 
         (define-react-class
             mini-opinion
             (let ((vv (prop opinion votevalue)))
               (psx
                (:div
                 :class "opinion"
                 :style (create position :absolute top (prop top) left (prop left)
                                background :white)
                 (:b (case vv
                       (-1 "-") (0 "o") (1 "+")))
                 (:flag-display :flag (prop opinion flag))))))
  
         (defun %make-sway-func (weight)
           ;;For now, just a parabola
  