anchor.diff:           (start-time (get-internal-real-time)))
   
       (format orig-std-out 
  -            "Running tests for library ~A. *STANDARD-OUTPUT* and *ERROR-OUTPUT* are redirected.~%"
  +            "Running tests for ~A. *STANDARD-OUTPUT* and *ERROR-OUTPUT* are redirected.~%"
               lib)
       (finish-output orig-std-out)
       
  
positive.code:             (setf run (submit-logs run-dir))
              (format t "The log files are successfully uploaded to the online blobstore.
   
   Please submit the test run results file 
     ~A 
   to the cl-test-grid issue tracker: 
     https://github.com/cl-test-grid/cl-test-grid/issues
   
    (we are working on automating the test results upload).~%"
                      (truename (run-info-file run-dir))))
          (t (e) (format t "Error occured while uploading the libraries test logs to the online store: ~A: ~A.
   Please submit manually the full content of the results directory 
     ~A
   to the cl-test-grid issue tracker: 
     https://github.com/cl-test-grid/cl-test-grid/issues~%"
                         (type-of e)
                         e
  
negative.code:   
    (funcall (find-symbol (string '#:do-tests) '#:rtest)))
  
  (defmethod libtest ((library-name (eql :iterate)))
  
    ;; The test framework used: rt.
    (clean-rt)
    (asdf:clear-system :iterate-tests)
    (asdf:clear-system :iterate)
  
    (quicklisp:quickload :iterate-tests)
    
    (funcall (intern "DO-TESTS" (find-package #+sbcl "SB-RT"
                                              #-sbcl "REGRESSION-TEST"))))
  
  (defmethod libtest ((library-name (eql :metabang-bind)))
    
    ;; The test framework used: lift.
    
    ;; metabang-bind-test includes regular-expression
    ;; bindings and tests, which is only loaded if
    ;; cl-ppcre to be loaded first.
    (quicklisp:quickload :cl-ppcre)
    (quicklisp:quickload :metabang-bind-test)
  
    (run-lift-tests :metabang-bind-test))
  
  (defun run-libtest (lib)
    (let* ((orig-std-out *standard-output*)
           (buf (make-string-output-stream))
  