anchor.diff:      (otherwise "")))
              
   (defun render-single-letter-status (test-run lib-test-result)
  +  (declare (ignore test-run))
     (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)
  +                (lib-log-uri lib-test-result)
                   (single-letter-status status)))))
   
   (defun test-runs-table-html (&optional 
  
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))
  