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-record +everywhere+))
  
  (defmacro formatting-column ((&optional stream
                                &key (record-type ''standard-column-output-record))
                               &body body)
    (declare (type symbol stream))
    (when (eq stream 't)
  
negative.code:    (min-height :initarg :min-height :reader cell-min-height)))
  
  (defmacro formatting-cell ((&optional stream
                              &key (align-x :left) (align-y :center) ; FIXME!!! It must be :baseline, but it is not yet implemented
                                   (min-width (coordinate 0)) ; ???
                                   (min-height (coordinate 0))
                                   (record-type 'standard-cell-output-record))
                             &body body)
    (declare (type symbol stream))
    (when (eq stream 't)
      (setq stream '*standard-output*))
    (let ((record (gensym))
          (parent (gensym)))
      `(progn
        (let ((,parent (stream-current-output-record ,stream)))
          (assert (or (row-output-record-p ,parent)
                      (column-output-record-p ,parent))))
        (with-new-output-record (,stream ,record-type ,record
                                 :align-x ,align-x :align-y ,align-y
                                 :min-width ,min-width :min-height ,min-height)
          (declare (ignore ,record))
          ,@body))))
  
  
  