anchor.diff:    (when (column-output-record-p record)
       (error "Trying to add a column into a row table.")))
   
  -(defmethod table-cell-spacing ((table table-of-rows-output-record) stream)
  -  (parse-space stream (slot-value table 'x-spacing) :horizontal))
  -(defmethod table-block-spacing ((table table-of-rows-output-record) stream)
  -  (parse-space stream (slot-value table 'y-spacing) :vertical))
  +(defmethod table-cell-spacing ((table table-of-rows-output-record))
  +  (slot-value table 'x-spacing))
  +(defmethod table-block-spacing ((table table-of-rows-output-record))
  +  (slot-value table 'y-spacing))
   
   (defmethod table-equalize-column-widths ((table table-of-rows-output-record)
                                            block-infos widths)
  
positive.code: 
  (defclass block-info ()
    ((common-size :type real
                  :initform (coordinate 0)
                  :accessor block-info-common-size)
     (number-of-cells :type integer
                      :initform 0
  
negative.code:   "Returns a list of BLOCK-INFOs for blocks in TABLE."
    (let ((infos nil))
      (map-over-table-elements
       #'(lambda (block) (push (block-info block) infos))
       table
       :row-or-column)
      (nreverse infos)))
  
  (defmethod adjust-table-cells ((table-record standard-table-output-record)
                                 stream)
    (let* ((cell-spacing (table-cell-spacing table-record))
           (block-spacing (table-block-spacing table-record))
           (infos (collect-block-infos table-record))
           (max-block-length (loop :for info :in infos
                                :maximize (block-info-number-of-cells info)))
           (sizes (make-array (list max-block-length)
                              :element-type 'real
                              :initial-element 0)))
      (loop :for info :in infos
         :for block-sizes = (block-info-cell-sizes info)
         :do (loop :for i = 0 :then (1+ i)
  