anchor.diff:                                                    (/ (lisp *opin-box-height*)
                                                        (lisp *minimum-space*))))
            (let* ((div (chain -math (floor (/ number rankmax))))
  -                (mod (mod number rankmax))
  +                (mod (rem number rankmax))
                   (ranks (+ div (if (< 0 mod) 1 0)))
                   (ranksize (chain -math (floor (/ number ranks))))
  -                (longranks (mod number ranks)))
  +                (longranks (rem number ranks)))
              (collecting
                (dotimes (i (- ranks longranks))
                  (collect ranksize))
  
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:                                                   (@ itm 0 'text-position 0)
                                                    (+ (@ itm 0 'text-position 0)
                                                       (@ itm 0 'text-position 1))))
                                      opins)
                           :focus focus)))))))
  
  
         (defun focus-p (focus-spec)
           (and focus-spec (< 0 (@ focus-spec length))))
  