anchor.diff:  
   (defmethod adjust-table-cells ((table-record standard-table-output-record)
                                  stream)
  +  (declare (ignore stream))
     (let* ((cell-spacing (table-cell-spacing table-record))
            (block-spacing (table-block-spacing table-record))
            (infos (collect-block-infos table-record))
  
positive.code:               (and (column-output-record-p record)
                     (member type '(:column :row-or-column))))
           (funcall function record)))
     table-record
     +everywhere+))
  
  (defun collect-block-infos (table)
    "Returns a list of BLOCK-INFOs for blocks in TABLE."
  
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)
  