anchor.diff:  (defun parse-space (stream specification direction)
     "Returns the amount of space given by SPECIFICATION relating to the
   STREAM in the direction DIRECTION."
  -  (declare (ignore stream direction))
     (etypecase specification
  -    (number (coordinate specification))
  -    ((or string character))
  -    (function)
  -    (list)))
  +    (integer specification)
  +    ((or string character) (multiple-value-bind (width height)
  +                               (text-size stream specification)
  +                             (ecase direction
  +                               (:horizontal width)
  +                               (:vertical height))))
  +    (function (let ((record (with-output-to-output-record (stream)
  +                              (funcall specification))))
  +                (ecase direction
  +                  (:horizontal (bounding-rectangle-width record))
  +                  (:vertical (bounding-rectangle-height record)))))
  +    (list (error "Not implemented."))))
   
    
  
positive.code: 
  (defclass block-info ()
    ((common-size :type real
                  :initform (coordinate 0)
                  :accessor block-info-common-size)
     (number-of-cells :type integer
                      :initform 0
  
negative.code:   (when (column-output-record-p record)
      (error "Trying to add a column into a row table.")))
  
  (defmethod table-cell-spacing ((table table-of-rows-output-record))
    (slot-value table 'x-spacing))
  (defmethod table-block-spacing ((table table-of-rows-output-record))
    (slot-value table 'y-spacing))
  
  (defmethod table-equalize-column-widths ((table table-of-rows-output-record)
                                           block-infos widths)
  