anchor.diff:     row-record +everywhere+))
   
   (defmacro formatting-row ((&optional stream
  -                           &key (record-type ''standard-row-output-record))
  +                           &key (record-type 'standard-row-output-record))
                              &body body)
     (declare (type symbol stream))
     (when (eq stream 't)
  
positive.code:                              multiple-columns
                               (multiple-columns-x-spacing nil multiple-columns-x-spacing-supplied-p)
                               equalize-column-widths (move-cursor t)
                               (record-type ''empty-standard-table-output-record)
                               &allow-other-keys)
                              &body body)
    (when (eq stream t)
  
negative.code: ;       (multiple-value-bind (,cursor-old-x ,cursor-old-y) ; !!!
  ;           (cursor-position ,stream)
           (with-output-recording-options (,stream :record t :draw nil)
             ,@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)
  