anchor.diff:           :cl+ssl :ssl-stream-check-verify
            stream))
         (setf (mysql-connection-stream *mysql-connection*) stream))))
  +
  +;; We don't actually receive a Handshake Response packet as a client, but it looks like this.
   
   ;; (define-packet handshake-response-v41
   ;;   ((capability-flags :mysql-type (integer 4))
  
positive.code:           (mysql-connection-close-socket connection)
            (error e)))
  
        (when (mysql-has-capability +mysql-capability-client-compress+)
          (setf (mysql-connection-stream connection)
                (make-instance 'mysql-compressed-stream
  
negative.code:                 :predicate (flagsp +mysql-capability-client-plugin-auth+ capability-flags))))
  
  (defun process-initial-handshake-v10 (payload)
    "Parse an INITIAL-HANDSHAKE-V10 Packet and populate the default MySQL connection."
    (let ((packet (parse-initial-handshake-v10 payload)))
      (setf (mysql-connection-server-version *mysql-connection*)
            (initial-handshake-v10-packet-server-version packet)
  
  