anchor.diff:                                                    "~%~19t"
                                                     #'(lambda (lib-result)
                                                         (format out
  -                                                              "(:libname ~s :status ~s :test-duration ~s :log-byte-length ~s :log-blob-key ~s)"
  +                                                              "(:libname ~s :status ~a :test-duration ~s :log-byte-length ~s :log-blob-key ~s)"
                                                                 (getf lib-result :libname)
  -                                                              (getf lib-result :status)
  +                                                              (print-test-status nil (getf lib-result :status))
                                                                 (getf lib-result :test-duration)
                                                                 (getf lib-result :log-byte-length)
                                                                 (getf lib-result :log-blob-key))))
  
positive.code:     (setf all-failures (union non-compiled-failures
                                (rt-api:failed-tests)))
  
      (list :failed-tests all-failures
            :known-to-fail (rt-api:known-to-fail))))
  
  (defmethod libtest ((library-name (eql :alexandria)))
  
  
negative.code:      do it manually. In case the DLL is absent, the LIBTEST method
       for CFFI returns :NO-RESOURCE.
    Extended status in the form 
       (:FAILED-TESTS <list of failed tests> :KNOWN-TO-FAIL <list of known failures>)
       The test names in these lists are represented as downcased strings.
  
  If any SERIOUS-CONDITION is signalled, this is considered a failure.
  
  