anchor.diff:    (let ((info (make-instance 'block-info)))
       (with-slots (common-size number-of-cells cell-sizes) info
         (map-over-block-cells
  -       #'(lambda (cell)
  -           (setf common-size
  -                 (max (cell-common-size cell block) common-size))
  -           (incf number-of-cells)
  -           (push (cell-size cell block) cell-sizes))
  +       (lambda (cell)
  +         (setf common-size
  +               (max (cell-common-size cell block) common-size))
  +         (incf number-of-cells)
  +         (push (cell-size cell block) cell-sizes))
          block)
         (setf cell-sizes (nreverse cell-sizes)))
       info))
  
positive.code:                                     stream)
    (declare (ignore stream))
    ()) ; Nothing to do (?)
  
negative.code: ;;; STANDARD-CELL-OUTPUT-RECORD class
  (defclass standard-cell-output-record (cell-output-record
                                         standard-sequence-output-record)
    ((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 align-y
                                   min-width min-height
                                   (record-type ''standard-cell-output-record))
                             &body body)
  