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:     (otherwise "")))
             
  (defun render-single-letter-status (test-run lib-test-result)
    (if (null lib-test-result)
        "&nbsp;"
        (let ((status (normalize-status (getf lib-test-result :status))))
          (format nil "<a class=\"test-status ~A\" href=\"~A\">~A</a>" 
                  (status-css-class status)
                  (lib-log-uri test-run lib-test-result)
                  (single-letter-status status)))))
  
  (defun test-runs-table-html (&optional 
  
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))
  