anchor.diff:     (min-width :initarg :min-width :reader cell-min-width)
      (min-height :initarg :min-height :reader cell-min-height)))
   
  -(defmacro formatting-cell ((&optional stream
  +(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 (coordinate 0)) ; ???
                                    (min-height (coordinate 0))
  
positive.code:        (when (cell-output-record-p record) (funcall function record)))
     column-record +everywhere+))
  
  (defmacro formatting-column ((&optional stream
                                &key (record-type 'standard-column-output-record))
                               &body body)
    (declare (type symbol stream))
  
negative.code:        (when (cell-output-record-p record) (funcall function record)))
     row-record +everywhere+))
  
  (defmacro formatting-row ((&optional (stream t)
                             &key (record-type 'standard-row-output-record))
                             &body body)
    (declare (type symbol stream))
  