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:    (min-height :initarg :min-height :reader cell-min-height))
    (:default-initargs
     :align-x :left :align-y :baseline :min-width 0 :min-height 0))
  
  ;;; If this were a primary method it wouldn't override the default
  ;;; behavior for the parent being a compound-output-record because of
  ;;; the order of the argument list.
  (defmethod recompute-extent-for-changed-child :around
      (record (changed-child standard-cell-output-record)
       old-min-x old-min-y old-max-x old-max-y)
    (unless *table-suppress-update*
      (call-next-method))
    record)
  
  (defun table-cell-allowed-as-child-of (record)
    "Internal. A predicate which decides whether 'record' can take a
  table cell as argument."
    ;; We allow a cell output record here if any ancestor is a
    ;; table-row, column or list-item. Note: This is probably not 100%
    ;; correct, as I have no idea what happens when you nest graphs and
    ;; tables ...
    (or (row-output-record-p record)
        (column-output-record-p record)
        (item-list-output-record-p record)
        (and (output-record-parent record)
             (table-cell-allowed-as-child-of (output-record-parent record)))))
  
  (defun assert-table-cell-allowed (record)
    "Internal. Assert that the a table cell is allowed here and if not
     barf."
    (unless (table-cell-allowed-as-child-of record)
      (error "Sorry ~S not within ~S, ~S or ~S."
             'formatting-cell
             'formatting-row
             'formatting-column
             'formatting-item-list)))
  
  (defgeneric invoke-formatting-cell (stream cont
                                      &key align-x align-y min-width min-height record-type
  
negative.code: 		for x = cx then (+ x w x-spacing) 
  		for w across widthen do
  		(adjust-cell* cell x y w h ascent))))))))
  
  (defmethod adjust-multiple-columns ((table standard-table-output-record) stream)
    (with-slots (widths heights rows
  