anchor.diff:                             (ql-dist:version (ql-dist:dist "quicklisp")))
           :time (get-universal-time)
           :run-duration :unknown
  -        :contact (list :email "avodonosov@yandex.ru")))
  +        :contact (list :email (get-user-email))))
   
   (defun name-run-directory (run-descr)
     "Generate name for the directory where test run 
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Settings
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (defun get-settings-file()
   (merge-pathnames (user-homedir-pathname) "cl-test-grid-settings.lisp"))
  
  
negative.code:              (string-trim " " (read-line *query-io*)))
  
  (defun get-user-email ()
    (LET ((USER-EMAIL nil))
      (handler-case
          (if (STRING= "" (setf user-email(GETF (SAFE-READ-FILE (GET-SETTINGS-FILE)
                                                                ) :USER-EMAIL)))
            (FORMAT t "WARNING! YOU DON'T ENTERED YOUR EMAIL~%"))
          (t ()
             (PROGN
               (write-to-file (list :user-email (setf user-email (prompt-for-email)))
                                    (get-settings-file)))))
          user-email))
  
  
          
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Test Runs
  