anchor.diff:                                (getf descr :lib-world)
                                 (getf descr :lisp))))
       (test-grid::save-db db)
  -    (print-commit-message submittions-info)))
  +    (print-commit-message submittions-info)
  +    (length attachment-files)))
   
   (defun delete-imported-emails (mailbox-password)
     "Deletes the test result emails processed by
  -IMPORT-TEST-RESULT-EMAILS."
  +the last invocation of IMPORT-TEST-RESULT-EMAILS
  +from the POP3 mailbox."
     (del-messages-by-uids *host* *user* mailbox-password 
                           (read-letter-uids *work-dir*)))
   
  -
  -
  -
  
positive.code:     (save-letter-uids message-uids work-dir)
      attachment-files))
  
  ;;; Helper for commit message and for email replies.
  ;;; 
  ;;; Breakdown the test resuls by contributors, then for every contributor
  ;;; by quicklisps, and then, for evenry contributor-quicklisp, store
  ;;; list of common lisp implementations.
  
  (defun make-submittions-info-table ()
    (make-hash-table :test 'equal))
  
negative.code:       (cl-pop:delete-pop-message conn msg-num)))
    (length uids))
  
  (defun save-letter-uids (letter-uids work-dir)
    (test-grid::write-to-file letter-uids (merge-pathnames "letter-uids.txt" work-dir))
    letter-uids)
  
  (defun read-letter-uids (work-dir)
    (test-grid::safe-read-file (merge-pathnames "letter-uids.txt" work-dir)))
  