anchor.diff:      may be necessary until progress becomes visible at application protocol
       level.")
     (:report (lambda (condition stream)
  -             (format stream "The TLS/SSL operation on handle ~A did not complete: It wants a READ (return code: ~A). "
  +             (format stream "The TLS/SSL operation on handle ~A did not complete: It wants a READ (return code: ~A).~%"
                        (ssl-error-handle condition)
                        (ssl-error-ret condition))
          (format-ssl-error-queue stream condition))))
  
positive.code:   (:report (lambda (condition stream)
               (if (zerop (length (ssl-error-queue condition)))
                   (case (ssl-error-ret condition)
                     (0 (format stream "An I/O error occurred: An unexpected EOF was observed on handle ~A (return code: ~A). "
                                (ssl-error-handle condition)
                                (ssl-error-ret condition)))
                     (-1 (format stream "An I/O error occurred in the underlying BIO (return code: ~A). "
                                 (ssl-error-ret condition)))
                     (otherwise (format stream "An I/O error occurred: undocumented reason (return code: ~A). "
                                        (ssl-error-ret condition))))
                   (format stream "An UNKNOWN I/O error occurred in the underlying BIO (return code: ~A). "
                           (ssl-error-ret condition)))
         (format-ssl-error-queue stream condition))))
  
  
negative.code:     TLS/SSL I/O function should be called again later. Details depend on the
      application.")
    (:report (lambda (condition stream)
               (format stream "The TLS/SSL operation on handle ~A did not complete: An application callback wants to be called again (return code: ~A).~%"
                       (ssl-error-handle condition)
                       (ssl-error-ret condition))
         (format-ssl-error-queue stream condition))))
  