anchor.diff:  
   (defun save-run-logs (run directory)
     (ensure-directories-exist directory)
  -  (let ((lib-results (second run)))
  +  (let ((lib-results (run-results run)))
       (do-lib-results (lib lib-result lib-results)
         (let ((lib-output (getf lib-result :output))
               (lib-log-file (merge-pathnames (string-downcase lib)
  
positive.code:    how to use it
     5h
   - change db format
     - test run as plist (:descr <descr> :run-results <run-results>)
       instead of just (<descr> <run-results>)
     - run-results as alist instead of plist (more convenient
       for standard mapping functions, instead of current do-lib-results)
  
negative.code:             (dolist (lib *all-libs*)
                (setf (getf lib-results lib)
                      (list :status (random-status) :log-char-length 50)))
              (push (make-run run-descr lib-results) runs))))
        runs)))
  
  (defvar *report-template* 
  