anchor.diff:  
   ;;; TODO:
   ;;; 
  -;;; 1. Better error detection.
  -;;; 2. Equal widths.
  -;;; 3. Text formatting.
  -;;; 4. Item list formatting.
  -;;; 5. FIXMEs.
  +;;; - 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)
  
positive.code: 
  ;;; Column formatting
  (defclass column-output-record (output-record)
    ()
    (:documentation "The protocol class representing column output records."))
  
  (defun column-output-record-p (object)
    (typep object 'column-output-record))
  
  (defgeneric map-over-column-cells (function column-record))
  
  ;;; Methods
  (defmethod map-over-block-cells (function (block column-output-record))
    (map-over-column-cells function block))
  
  (defmethod cell-common-size (cell (block column-output-record))
    (declare (ignore block))
    (bounding-rectangle-width cell))
  
  (defmethod cell-size (cell (block column-output-record))
    (declare (ignore block))
    (bounding-rectangle-height cell))
  
  (defmethod block-adjust-cell* (cell (block column-output-record)
                                 cell-coordinate common-coordinate
                                 size common-size)
    (declare (ignore block))
    (adjust-cell* cell
                  common-coordinate cell-coordinate
                  common-size size))
  
negative.code: 
  (defmethod adjust-table-cells ((table-record empty-standard-table-output-record)
                                 stream)
    (declare (ignore table-record stream))
    ()) ; Nothing to do
  
  ;;; Table of rows
  