anchor.diff:  (defun table-output-record-p (object)
     (typep object 'table-output-record))
   
  -(defgeneric map-over-table-elements (function table-record type))
  +(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))
   
  
positive.code:        ,table)))
  
  ;;; Internal
  (defgeneric table-cell-spacing (table)
    (:documentation "Spacing between cells in blocks."))
  (defgeneric table-block-spacing (table)
    (:documentation "Spacing between blocks in the table."))
  
  (defmethod map-over-table-elements (function
                                      (table-record standard-table-output-record)
  
negative.code: 
  ;;; TODO:
  ;;; 
  ;;; - Better error detection.
  ;;; - Item list formatting.
  ;;; - Multiple columns.
  ;;; - All types of spacing, widths, heights. 
  ;;; - FIXMEs.
  
  (in-package :CLIM-INTERNALS)
  
  ;;; Space specification parsing
  (deftype space () 'coordinate)
  
  (defun parse-space (stream specification direction)
    "Returns the amount of space given by SPECIFICATION relating to the
  STREAM in the direction DIRECTION."
    (etypecase specification
      (number (coordinate specification))
      ((or string character))
      (function)
      (list)))
  
  
  ;;; Cell formatting
  (defclass cell-output-record (output-record)
  