anchor.diff:      (mysql-write-packet (flexi-streams:get-output-stream-sequence s))))
   
   (defun process-initial-handshake-payload (payload)
  +  "Initial handshake processing dispatch."
     (ecase (aref payload 0)
       (10 (process-initial-handshake-v10 payload))))
   
   
   (defun mysql-connect-do-handshake (connection username password database &key ssl ssl-verify)
  +  "Perform the MySQL Initial Handshake with CONNECTION."
     ;; Read a wire packet
     (let ((initial-handshake-payload (mysql-connection-read-packet connection)))
       (with-mysql-connection (connection)
  
positive.code:                 :predicate (flagsp +mysql-capability-client-plugin-auth+ capability-flags))))
  
  (defun process-initial-handshake-v10 (payload)
    ;; 1) Parse the payload
    (let ((packet (parse-initial-handshake-v10 payload)))
      ;; 2) Populate *mysql-connection* slots with data from initial handshake
      (setf (mysql-connection-server-version *mysql-connection*)
            (initial-handshake-v10-packet-server-version packet)
  
  
negative.code: ;;     :predicate (flagsp +mysql-capability-client-connect-attrs+ capability-flags))))
  
  (defun send-handshake-response-41 (&key username auth-plugin auth-response database)
    "Send a MySQL Handshake Response v41 to the default MySQL connection."
    (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)
  