anchor.diff:        (cl-pop:delete-pop-message conn msg-num)))
     (length uids))
   
  -(defun save-letter-uids (letter-ids work-dir)
  -  (test-grid::write-to-file letter-ids (merge-pathnames "letter-uids.txt" work-dir))
  -  letter-ids)
  +(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)))
  
positive.code:                               (getf descr :lib-world)
                                (getf descr :lisp))))
      (test-grid::save-db db)
      (print-commit-message submittions-info)))
  
  (defun delete-imported-emails (mailbox-password)
    "Deletes the test result emails processed by
  IMPORT-TEST-RESULT-EMAILS."
    (del-messages-by-uids *host* *user* mailbox-password 
                          (read-letter-uids *work-dir*)))
  
  
  
  
  
negative.code:     (save-letter-uids message-uids work-dir)
      attachment-files))
  
  ;;; Helper to produce a commit message for the imported test results.
  ;;;
  ;;; Example commit message:
  ;;; Test results for quicklisp1 and lisp1, lisp2. Contributed by person1. 
  ;;; Test results for quicklisp2 and lisp1. Contributed by person1.
  ;;; Test results for quicklisp1 and lisp2. Contributed by person2.
  ;;; 
  ;;; This means we 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))
  