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:   (setq y-spacing (parse-space stream (or y-spacing
                                            (stream-vertical-spacing stream))
                                 :vertical))
    (unless multiple-columns-x-spacing
      (setq multiple-columns-x-spacing x-spacing))
    (with-new-output-record
        (stream record-type table
                :x-spacing x-spacing
                :y-spacing y-spacing
                :multiple-columns-x-spacing multiple-columns-x-spacing
                :equalize-column-widths equalize-column-widths)
      (multiple-value-bind (cursor-old-x cursor-old-y)
  
negative.code:                                                          (or ,min-height 0)
                                                           :vertical))
           (declare (ignore ,record))
           (letf (((stream-cursor-position ,stream) (values 0 0)))
             ,@body)))))
  
  
  