anchor.diff:     column-record))
   
   (defmacro formatting-column ((&optional (stream t)
  -                              &key (record-type 'standard-column-output-record))
  +                              &key (record-type ''standard-column-output-record))
                                &body body)
     (declare (type symbol stream))
     (when (eq stream 't)
  
positive.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)
  
negative.code: (defgeneric block-adjust-cell* (cell block
                                  cell-coordinate common-coordinate
                                  size common-size)
    (:documentation "Fits the CELL of the BLOCK in the rectangle."))
  
  (defclass block-info ()
    ((common-size :type real
  