anchor.diff:      (dotimes (i (length widths))
         (setf (aref widths i) max-width))))
   
  +(defmethod adjust-multiple-columns ((table table-of-rows-output-record) stream)
  +  (let ((n-columns (slot-value table 'multiple-columns))
  +        (x-spacing (slot-value table 'multiple-columns-x-spacing))
  +        (width (bounding-rectangle-width table))
  +        (stream-width (stream-text-margin stream)) ; XXX - (bounding-rectangle-min-x table)
  +        (n-rows 0))
  +    (when (eq n-columns t)
  +      (setq n-columns (floor (+ stream-width x-spacing)
  +                             (+ width x-spacing))))
  +    (when (<= n-columns 1) (return-from adjust-multiple-columns))
  +    (map-over-table-elements (lambda (row) (declare (ignore row))
  +                                     (incf n-rows))
  +                             table
  +                             :row)
  +    (when (<= n-rows 1) (return-from adjust-multiple-columns))
  +    (let* ((cy (bounding-rectangle-min-y table))
  +           (column-size (ceiling n-rows n-columns))
  +           (rest column-size)
  +           (dx 0)
  +           (dy 0))
  +      (map-over-table-elements
  +       (lambda (row)
  +         (multiple-value-bind (x y) (output-record-position row)
  +           (when (= rest 0)
  +             (incf dx (+ width x-spacing)) ; XXX
  +             (setq dy (- cy y))
  +             (setq rest column-size))
  +           (setf (output-record-position row) (values (+ x dx) (+ y dy)))
  +           (decf rest)))
  +       table :row))))
  +
   ;;; Table of columns
   (defclass table-of-columns-output-record (standard-table-output-record)
     ())
  
positive.code:   (declare (ignore stream))
    ()) ; Nothing to do
  
  ;;; Table of rows
  (defclass table-of-rows-output-record (standard-table-output-record)
    ())
  
negative.code:                                         standard-sequence-output-record)
    ((x-spacing :initarg :x-spacing)
     (y-spacing :initarg :y-spacing)
     (multiple-columns :initarg :multiple-columns)
     (multiple-columns-x-spacing :initarg :multiple-columns-x-spacing)
     (equalize-column-widths :initarg :equalize-column-widths)))
  
  