anchor.diff:    (declare (ignore stream))
     ()) ; Nothing to do
   
  +(defmethod adjust-multiple-columns ((table empty-standard-table-output-record)
  +                                    stream)
  +  (declare (ignore stream))
  +  ()) ; Nothing to do
  +
   ;;; Table of rows
   (defclass table-of-rows-output-record (standard-table-output-record)
     ())
  
positive.code:     (dotimes (i (length widths))
        (setf (aref widths i) max-width))))
  
  ;;; Table of columns
  (defclass table-of-columns-output-record (standard-table-output-record)
    ())
  
negative.code:             :maximize (block-info-common-size i))))
      (loop :for i :in block-infos
         :do (setf (block-info-common-size i) max-width))))
  
  (defmethod adjust-multiple-columns ((table table-of-columns-output-record)
                                      stream)
    (declare (ignore stream))
    ()) ; Nothing to do (?)
  