anchor.diff:  ;;; STANDARD-CELL-OUTPUT-RECORD class
   (defclass standard-cell-output-record (cell-output-record
                                          standard-sequence-output-record)
  -  ((align-x :initarg :align-x :reader cell-align-x)
  -   (align-y :initarg :align-y :reader cell-align-y)
  -   (min-width :initarg :min-width :reader cell-min-width)
  -   (min-height :initarg :min-height :reader cell-min-height)))
  +  ((align-x :initform nil :initarg :align-x :reader cell-align-x)
  +   (align-y :initform nil :initarg :align-y :reader cell-align-y)
  +   (min-width :initform 0 :initarg :min-width :reader cell-min-width)
  +   (min-height :initform 0 :initarg :min-height :reader cell-min-height)))
  +
  +(defmethod initialize-instance :after ((cell standard-cell-output-record)
  +                                       &rest args)
  +  (declare (ignore args))
  +  (with-slots (align-x align-y) cell
  +    (orf align-x :left)
  +    (orf align-y :bottom))) ; FIXME: :BASELINE
   
   (defmacro formatting-cell ((&optional (stream t)
  -                            &key (align-x :left) (align-y :center) ; FIXME!!! It must be :baseline, but it is not yet implemented
  +                            &key align-x align-y
                                    min-width min-height
                                    (record-type ''standard-cell-output-record))
                              &body body)
  
positive.code: (defmethod map-over-column-cells
      (function (column-record standard-column-output-record))
    (map-over-output-records
     #'(lambda (record)
         (when (cell-output-record-p record) (funcall function record)))
     column-record))
  
  (defmacro formatting-column ((&optional (stream t)
  
negative.code:   (let ((cell-coordinate 0)
          (cell-number 0))
      (map-over-block-cells
       (lambda (cell)
         (let ((size (aref sizes cell-number)))
           (block-adjust-cell* cell block
                               cell-coordinate common-coordinate
                               size common-size)
           (incf cell-coordinate (+ size spacing))
           (incf cell-number)))
       block)))
  
  