anchor.diff:  (defgeneric map-over-block-cells (function block)
     (:documentation "Applies the FUNCTION to all cells in the BLOCK."))
   
  -(defmethod map-over-block-cells (function (block block-output-record-mixn))
  +(defmethod map-over-block-cells (function (block block-output-record-mixin))
     ;; ### we need to do better -- yeah! how?
     (labels ((foo (row-record)
                (map-over-output-records
  
positive.code: (defgeneric adjust-item-list-cells (item-list-record stream))
  
  (defclass standard-item-list-output-record (item-list-output-record
                                              block-output-record-mixn
                                              standard-sequence-output-record)
    ((x-spacing :initarg :x-spacing)
     (y-spacing :initarg :y-spacing)
  
negative.code: 
  ;;; STANDARD-COLUMN-OUTPUT-RECORD class
  (defclass standard-column-output-record (column-output-record
                                           block-output-record-mixin
                                           standard-sequence-output-record)
    ())
  
  