anchor.diff:                                 cell-coordinate common-coordinate
                                  size common-size)
     (declare (type cell-output-record cell)
  -           (type coordinate cell-coordinate common-coordinate
  +           (type real cell-coordinate common-coordinate
                               size common-size))
     (adjust-cell* cell
                   common-coordinate cell-coordinate
  
positive.code: (defmethod table-equalize-column-widths ((table table-of-rows-output-record)
                                           block-infos widths)
    (declare (ignore block-infos)
             (type (vector coordinate) widths))
    (let ((max-width
           (loop :for w :across widths
              :maximize w)))
  
negative.code:   (:documentation "Fits the cell in the rectangle."))
  
  (defmethod adjust-cell* ((cell cell-output-record) x y width height)
    (declare (type real x y width height))
    (multiple-value-bind (left top right bottom) (bounding-rectangle* cell)
      (let ((dx (ecase (cell-align-x cell)
                  (:left (- x left))
  