anchor.diff:              "Running tests for ~A. *STANDARD-OUTPUT* and *ERROR-OUTPUT* are redirected.~%"
               lib)
       (finish-output orig-std-out)
  +
  +    (print-log-header lib run-descr *standard-output*)
       
       (let ((status (handler-case
                         (normalize-status (libtest lib))
  
positive.code:          (lib-results))
      (ensure-directories-exist run-dir)
      (dolist (lib libs)
        (let ((lib-result (run-libtest lib)))
          (save-lib-log lib (getf lib-result :output) run-dir)
          (remf lib-result :output)
          (push lib-result lib-results)))
  
negative.code:                                                  "Unhandled ERROR is signaled: ~A~%"
                                                   condition)
                                           :fail)))))
        (print-log-footer lib status *standard-output*)
        (let ((output (get-output-stream-string buf)))
          (list :libname lib
                :status status :output output
  