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-write-packet (flexi-streams:get-output-stream-sequence s))))
  
  (defun process-initial-handshake-payload (payload)
    (ecase (aref payload 0)
      (10 (process-initial-handshake-v10 payload))))
  
  
  (defun mysql-connect-do-handshake (connection username password database &key ssl ssl-verify)
    ;; Read a wire packet
    (let ((initial-handshake-payload (mysql-connection-read-packet connection)))
      (with-mysql-connection (connection)
  
negative.code:     (values)))
  
  (defun send-ssl-request-packet (verify)
    "Sends a MySQL SSL Connection Request Packet and begins SSL negotiation."
    (let ((s (flexi-streams:make-in-memory-output-stream :element-type '(unsigned-byte 8))))
      (write-fixed-length-integer (mysql-connection-capabilities *mysql-connection*) 4 s)
      (write-fixed-length-integer #x1000000 4 s)
  