anchor.diff:                                                       (test-grid-data::run-descr saved-test-run))
                                (test-grid-data::run-results saved-test-run)))
            (helper-lisp (or helper-lisp-exe lisp-exe))
  -         (project-lister (init-project-lister helper-lisp quicklisp-dir))
  +         (project-lister (init-project-lister helper-lisp quicklisp-dir quicklisp-dist-name))
            (project-names (or project-names (project-names project-lister)))
            (project-systems-fn (alexandria:curry #'project-systems project-lister)))
       (save-run-info test-run run-dir)
  
positive.code:                                 :contact-email "avodonosov@yandex.ru")
                                (merge-pathnames "test-runs/my-test-run/" (user-homedir-pathname))
                                (merge-pathnames "quicklisp/" (user-homedir-pathname))
                                *sbcl*)
  
  The first parameter is the plist of test run description attributes.
  
negative.code:                             project-names
                              (alexandria:curry #'project-systems (project-lister agent)))))
  
  (defun complete-test-run2 (description run-dir quicklisp-dir quicklisp-dist-name lisp-exe
                             &key project-names helper-lisp-exe)
    (unless (getf description :lib-world) (error "please specify :lib-world in the description"))
    (unless (getf description :contact-email) (error "lease specify :contact-email in the description"))
    (let* ((lisp-exe:*temp-dir* (or lisp-exe:*temp-dir* (ensure-directories-exist run-dir)))
  