anchor.diff:     how to use it
      5h
    - change db format
  -   - test run as plist (:descr <descr> :run-results <run-results>)
  +   + 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)
  
positive.code:     (setf (getf run-descr :run-duration) 
            (- (get-universal-time)
               (getf run-descr :time)))
      (let ((run (list run-descr lib-results)))
        (save-run-info run run-dir)
  (format t "The test results were saved to this directory:
     ~A.~%" (truename run-dir)))
  
negative.code:           (write-sequence lib-output out))))))
  
  (defun delete-output (run)
    (let ((lib-results (run-results run)))
      (do ((cur lib-results (cddr cur)))
          ((null cur))
        (remf (second cur) :output)))
  