anchor.diff:     (handle :initarg :handle
              :reader ssl-error-handle))
     (:report (lambda (condition stream)
  -             (format stream "Unspecified error ~A on handle ~A" 
  +             (format stream "Unspecified error ~A on handle ~A~%"
                        (ssl-error-ret condition)
                        (ssl-error-handle condition))
          (format-ssl-error-queue stream condition))))
  
positive.code:     OpenSSL error queue contains more information on the error.")
    (:report (lambda (condition stream)
               (format stream
           "A failure in the SSL library occurred on handle ~A (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))))
  