anchor.diff:  
   (defmethod table-equalize-column-widths ((table table-of-rows-output-record)
                                            block-infos widths)
  -  (declare (ignore table block-infos)
  +  (declare (ignore #-cmu table block-infos)
              (type (vector coordinate) widths))
     (let ((max-width
            (loop :for w :across widths
  
positive.code:   (map-over-row-cells function block))
  
  (defmethod cell-common-size (cell (block row-output-record))
    (declare (ignore block)
             (type cell-output-record cell))
    (max (bounding-rectangle-height cell)
         (cell-min-height cell)))
  
  (defmethod cell-size (cell (block row-output-record))
    (declare (ignore block)
             (type cell-output-record cell))
    (max (bounding-rectangle-width cell)
         (cell-min-width cell)))
  
negative.code:   (map-over-column-cells function block))
  
  (defmethod cell-common-size (cell (block column-output-record))
    (declare #-cmu (ignore block)
             (type cell-output-record cell))
    (max (bounding-rectangle-width cell)
         (cell-min-width cell)))
  
  (defmethod cell-size (cell (block column-output-record))
    (declare #-cmu (ignore block)
             (type cell-output-record cell))
    (max (bounding-rectangle-height cell)
         (cell-min-height cell)))
  