anchor.diff:  (defgeneric block-adjust-cell* (cell block
                                   cell-coordinate common-coordinate
                                   size common-size)
  -  (:documentation "Fits the CELL of the BLOCK in the retangle."))
  +  (:documentation "Fits the CELL of the BLOCK in the rectangle."))
   
   (defclass block-info ()
     ((common-size :type real
  
positive.code: (defmacro formatting-cell ((&optional (stream t)
                              &key (align-x :left) (align-y :center) ; FIXME!!! It must be :baseline, but it is not yet implemented
                                   min-width min-height
                                   (record-type 'standard-cell-output-record))
                             &body body)
    (check-type stream symbol)
    (when (eq stream 't)
  
negative.code:    row-record))
  
  (defmacro formatting-row ((&optional (stream t)
                             &key (record-type ''standard-row-output-record))
                             &body body)
    (declare (type symbol stream))
    (when (eq stream 't)
  