anchor.diff:    (quicklisp:quickload :metatilities-test)
     (run-lift-tests :metatilities-test))
   
  -(defun run-libtest (lib)
  +(defun print-log-header (libname run-descr stream)
  +  (let ((*print-case* :downcase))
  +    (format stream "============================================================~%")
  +    (format stream "  cl-test-grid test run~%")
  +    (format stream "------------------------------------------------------------~%")
  +    (format stream "  library:   ~A~%" libname)
  +    (format stream "  lisp:      ~A~%" (getf run-descr :lisp))
  +    (format stream "  lib-world: ~A~%" (getf run-descr :lob-world))
  +    (format stream "  timestamp: ~A~%" (pretty-fmt-time (get-universal-time)))
  +    (format stream "============================================================~%~%")))
  +
  +(defun print-log-footer (libname status stream)
  +  (let ((*print-case* :downcase))
  +    (format stream "~&~%cl-test-grid status for ~A: ~A~%" libname status)))
  +
  +(defun run-libtest (lib run-descr)
     (let* ((orig-std-out *standard-output*)
            (buf (make-string-output-stream))
            (*standard-output* buf)
  
positive.code:             "Running tests for ~A. *STANDARD-OUTPUT* and *ERROR-OUTPUT* are redirected.~%"
              lib)
      (finish-output orig-std-out)
      
      (let ((status (handler-case
                        (normalize-status (libtest lib))
  
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
  