anchor.diff:              (dolist (lib *all-libs*)
                 (setf (getf lib-results lib)
                       (list :status (random-status) :log-char-length 50)))
  -            (push (list run-descr lib-results) runs))))
  +            (push (make-run run-descr lib-results) runs))))
         runs)))
   
   (defvar *report-template* 
  
positive.code:           (write-sequence lib-output out))))))
  
  (defun delete-output (run)
    (let ((lib-results (second run)))
      (do ((cur lib-results (cddr cur)))
          ((null cur))
        (remf (second cur) :output)))
  
negative.code:     (setf (getf run-descr :run-duration) 
            (- (get-universal-time)
               (getf run-descr :time)))
      (let ((run (make-run run-descr lib-results)))
        (save-run-info run run-dir)
  (format t "The test results were saved to this directory:
     ~A.~%" (truename run-dir)))
  