anchor.diff:                               (record-type 'empty-standard-table-output-record)
                                &allow-other-keys)
                               &body body)
  -  (declare (ignore multiple-columns-x-spacing-supplied-p
  -		   multiple-columns-x-spacing)) ; FIXME!!! Possible recomputation
  +  ;; FIXME!!! Possible recomputation
     (when (eq stream t)
       (setq stream '*standard-output*))
     (let ((table (gensym))
  
positive.code:                                cell-coordinate common-coordinate
                                 size common-size)
    (declare (type cell-output-record cell)
             (type coordinate cell-coordinate common-coordinate
                              size common-size))
    (adjust-cell* cell
                  cell-coordinate common-coordinate
  
negative.code: (defmethod table-equalize-column-widths ((table table-of-rows-output-record)
                                           block-infos widths)
    (declare (ignore block-infos)
             (type (vector real) widths))
    (let ((max-width
           (loop :for w :across widths
              :maximize w)))
  