anchor.diff:  ;;; - All types of spacing, widths, heights.
   ;;; - FIXMEs.
   ;;; - Bug: only one option of :X-SPACING and :Y-SPACING works now. (?)
  +;;; - Item list formatting: what is :EQUALIZE-COLUMN-WIDTHS?!
   
   (in-package :CLIM-INTERNALS)
   
  
positive.code:                                     stream)
    (declare (ignore stream))
    ()) ; Nothing to do (?)
  
negative.code:                                     (table-record standard-table-output-record)
                                      type)
    (map-over-output-records
     (lambda (record)
       (when (or
              (and (row-output-record-p record)
                   (member type '(:row :row-or-column)))
              (and (column-output-record-p record)
                   (member type '(:column :row-or-column))))
         (funcall function record)))
     table-record))
  
  (defun collect-block-infos (table)
    "Returns a list of BLOCK-INFOs for blocks in TABLE."
    (let ((infos nil))
      (map-over-table-elements
       (lambda (block) (push (block-info block) infos))
       table
       :row-or-column)
      (nreverse infos)))
  