anchor.diff:                            joined-index
                             row-fields row-fields-sort-predicates
                             col-fields col-fields-sort-predicates)
  +
     (let ((table (with-output-to-string (str) 
                    (pivot-table-html str
                                      joined-index
  
positive.code:                                   `(("{THE-TABLE}" . ,table)
                                      ("{TIME}" . ,(pretty-fmt-time (get-universal-time)))))
                      out)))
  
  (defun file-string (path)
    "Sucks up an entire file from PATH into a freshly-allocated string,
        returning two values: the string and the number of bytes read."
    (with-open-file (s  *pivot-report-template*)
      (let* ((len (file-length s))
             (data (make-string len)))
        (values data (read-sequence data s)))))
  
  (defun print-pivot-reports (db)
    (let ((joined-index (build-joined-index db))
  
negative.code:         (col-comparator #'(lambda (cola colb)
                              (list< col-fields-sort-predicates
                                     cola colb))))
      
      (setf (values rows cols index-key-setter) 
            (calc-rows-and-cols joined-index row-fields col-fields))
      
  