anchor.diff:  
   (defmethod adjust-table-cells ((table-record empty-standard-table-output-record)
                                  stream)
  -  (declare (ignore table-record stream))
  +  (declare (ignore #-cmu table-record stream))
     ()) ; Nothing to do
   
   ;;; Table of rows
  
positive.code: (defmethod block-adjust-cell* (cell (block row-output-record)
                                 cell-coordinate common-coordinate
                                 size common-size)
    (declare (ignore block)
             (type cell-output-record cell)
             (type coordinate cell-coordinate common-coordinate size common-size))
    (adjust-cell* cell
  
negative.code:   (map-over-row-cells function block))
  
  (defmethod cell-common-size (cell (block row-output-record))
    (declare #-cmu (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 #-cmu (ignore block)
             (type cell-output-record cell))
    (max (bounding-rectangle-width cell)
         (cell-min-width cell)))
  