anchor.diff:                                  (make-header-print-helper)))))
             (incf (span helper)))))
       helpers))
  +
  +(defun format-lib-results (out lib-results)
  +  (dolist (lib-result lib-results)
  +    (format out "<a href=\"~a\" class=\"~a\">~a</a> " 
  +            (lib-log-uri lib-result)
  +            (string-downcase (getf lib-result :status))
  +            (string-downcase (getf lib-result :status)))))
            
   (defun print-row-header (row-addr row-spans out)
     (dolist (subaddr (subaddrs row-addr))
  
positive.code:         (print-row-header row row-spans out)
          (dolist (col cols)
            (funcall index-key-setter index-key row col)
            (let ((data (gethash index-key joined-index)))
              (with-output-to-string (out) 
                (format-results out data))
              (princ "<td>" out) (format-results out data) (princ "</td>" out)))
          (format out "</tr>~%"))))
    (princ "</table>" out))
  
  
negative.code: ;; until we move the reporting to a separate
  ;; asdf system, we don't want the dependency 
  ;; on blobstore here.
  (defun blob-uri (blob-key)
    (format nil "~A/blob?key=~A" 
            *gae-blobstore-base-url* blob-key))
  