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: 
  ;;; TODO:
  ;;;
  ;;; - Better error detection.
  ;;; - Item list formatting.
  ;;; - Multiple columns.
  ;;; - :MOVE-CURSOR T support.
  ;;; - All types of spacing, widths, heights.
  ;;; - FIXMEs.
  
  (in-package :CLIM-INTERNALS)
  
  ;;; Space specification parsing
  #+ignore(deftype space () 'coordinate)
  
  (defun parse-space (stream specification direction)
    "Returns the amount of space given by SPECIFICATION relating to the
  
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)))
  