anchor.diff:                (and (column-output-record-p record)
                      (member type '(:column :row-or-column))))
            (funcall function record)))
  -   table-record
  -   +everywhere+))
  +   table-record))
   
   (defun collect-block-infos (table)
     "Returns a list of BLOCK-INFOs for blocks in TABLE."
  
positive.code: 
  (defmethod map-over-column-cells
      (function (column-record standard-column-output-record))
    (map-over-output-records-overlapping-region
     #'(lambda (record)
         (when (cell-output-record-p record) (funcall function record)))
     column-record +everywhere+))
  
  (defmacro formatting-column ((&optional (stream t)
                                &key (record-type 'standard-column-output-record))
  
negative.code: (defmethod map-over-table-elements (function
                                      (table-record standard-table-output-record)
                                      type)
    (map-over-output-records
     #'(lambda (record)
         (when (or
                (and (row-output-record-p record)
  