anchor.diff:        (table-equalize-column-widths table-record infos sizes))
       (map-over-table-elements
        (let ((common-coordinate 0))
  -       #'(lambda (block)
  -           (let ((common-size (block-info-common-size (pop infos))))
  -             (adjust-block block sizes
  -                           cell-spacing common-coordinate common-size)
  -             (incf common-coordinate (+ common-size block-spacing)))))
  +       (lambda (block)
  +         (let ((common-size (block-info-common-size (pop infos))))
  +           (adjust-block block sizes
  +                         cell-spacing common-coordinate common-size)
  +           (incf common-coordinate (+ common-size block-spacing)))))
        table-record
        :row-or-column)))
   
  
positive.code:   (let ((cell-coordinate 0)
          (cell-number 0))
      (map-over-block-cells
       #'(lambda (cell)
           (let ((size (aref sizes cell-number)))
             (block-adjust-cell* cell block
                                 cell-coordinate common-coordinate
                                 size common-size)
             (incf cell-coordinate (+ size spacing))
             (incf cell-number)))
       block)))
  
  
negative.code: ;;; TODO:
  ;;;
  ;;; - Check types: RATIONAL, COORDINATE, REAL?
  ;;; - Check default values of unsupplied arguments.
  ;;; - Better error detection.
  ;;; - 
  ;;; - Multiple columns:
  ;;; - - all columns are assumed to have the same width;
  ;;; - - all columns have the same number of rows; they should have the
  