anchor.diff:                                    `(("{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))
  
positive.code:                          joined-index
                           row-fields row-fields-sort-predicates
                           col-fields col-fields-sort-predicates)
    (princ "<table border=\"1\" class=test-table>" out)
    (let (rows
          cols
  
negative.code:                           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
  