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:     (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)))
  