anchor.diff:  (defmethod block-adjust-cell* (cell (block row-output-record)
                                  cell-coordinate common-coordinate
                                  size common-size)
  -  (declare (ignore block)
  +  (declare #-cmu (ignore block)
              (type cell-output-record cell)
              (type coordinate cell-coordinate common-coordinate size common-size))
     (adjust-cell* cell
  
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: 
  (defmethod table-equalize-column-widths ((table table-of-rows-output-record)
                                           block-infos widths)
    (declare (ignore #-cmu table block-infos)
             (type (vector coordinate) widths))
    (let ((max-width
           (loop :for w :across widths
  