anchor.diff:    (: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). "
  +                   (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). "
  +                   (-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). "
  +                   (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). "
  +                 (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))))
   
  
positive.code:     does not necessarily indicate that the underlying transport has been
      closed.")
    (:report (lambda (condition stream)
               (format stream "The TLS/SSL connection on handle ~A has been closed (return code: ~A). "
                       (ssl-error-handle condition)
                       (ssl-error-ret condition))
         (format-ssl-error-queue stream condition))))
  
negative.code:     select() or poll() for writing on the socket file
      descriptor can be used.")
    (:report (lambda (condition stream)
              (format stream "The TLS/SSL operation on handle ~A did not complete: It wants a connect first (return code: ~A).~%"
                       (ssl-error-handle condition)
                       (ssl-error-ret condition))
        (format-ssl-error-queue stream condition))))
  