anchor.diff:      `(progn
          (let ((,parent (stream-current-output-record ,stream)))
            (assert (or (row-output-record-p ,parent)
  -                     (column-output-record-p ,parent))))
  +                     (column-output-record-p ,parent)
  +                     (item-list-output-record-p ,parent))))
          (with-new-output-record (,stream ,record-type ,record
                                   :align-x ,align-x :align-y ,align-y
                                   :min-width (parse-space ,stream
  
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: ;;; 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)
  