anchor.diff:  ;       (multiple-value-bind (,cursor-old-x ,cursor-old-y) ; !!!
   ;           (cursor-position ,stream)
            (with-output-recording-options (,stream :record t :draw nil)
  -           ,@body)
  +           ,@body
  +           (finish-output ,stream))
            (adjust-table-cells ,table ,stream)
   ;         (setf*-output-record-position ,cursor-old-x ,cursor-old-y ,table) ; !!!
            (replay-output-record ,table ,stream)
  
positive.code:    row-record +everywhere+))
  
  (defmacro formatting-row ((&optional stream
                             &key (record-type ''standard-row-output-record))
                             &body body)
    (declare (type symbol stream))
    (when (eq stream 't)
  
negative.code: (defun table-output-record-p (object)
    (typep object 'table-output-record))
  
  (defgeneric map-over-table-elements (function table-record type)
    (:documentation "Applies FUNCTION to all the rows or columns of
  TABLE-RECORD that are of type TYPE. TYPE is one of :ROW, :COLUMN or
  :ROW-OR-COLUMN. FUNCTION is a function of one argument. The function
  skips intervening non-table output record structures."))
  (defgeneric adjust-table-cells (table-record stream))
  (defgeneric adjust-multiple-columns (table-record stream))
  
  