anchor.diff:  
   (in-package :clim-internals)
   
  -(defvar *table-suppress-update* nil
  -  "Used to control whether changes to table cells propagate upwards.")
  -
   ;;; Cell formatting
   
   ;;; STANDARD-CELL-OUTPUT-RECORD class
  
positive.code:   (unless (slot-boundp table 'multiple-columns-x-spacing)
      (setf (slot-value table 'multiple-columns-x-spacing)
            (slot-value table 'x-spacing))))
  
  (locally
      (declare #+sbcl (sb-ext:muffle-conditions style-warning))
  
negative.code:               :equalize-column-widths equalize-column-widths)
      (multiple-value-bind (cursor-old-x cursor-old-y)
  	(stream-cursor-position stream)
        (with-output-recording-options (stream :record t :draw nil)
          (funcall continuation stream)
          (force-output stream))
        (setf (stream-cursor-position stream)
              (values cursor-old-x cursor-old-y))
        (with-output-recording-options (stream :record nil :draw nil)
          (adjust-table-cells table stream)
          (when multiple-columns (adjust-multiple-columns table stream))
          (tree-recompute-extent table))
        (replay table stream)
        (if move-cursor
  	  (setf (stream-cursor-position stream)
  