anchor.diff:  
   ;;; Packet utilities
   (defmethod mysql-connection-write-packet ((c mysql-base-connection) payload)
  +  "Write PAYLOAD to C's stream as a wire packet."
     (setf (mysql-connection-sequence-id c)
           (write-wire-packet (mysql-connection-stream c)
                              payload
  
positive.code:   (values))
  
  (defmethod mysql-connection-read-packet ((c mysql-base-connection))
    (multiple-value-bind (payload seq-id)
        (read-wire-packet (mysql-connection-stream c)
                          :expected-sequence-id (mysql-connection-sequence-id c))
  
negative.code:     payload))
  
  (defmethod mysql-connection-command-init ((c mysql-base-connection) command)
    "Initialize connection for a new command.
     Resets sequence-id in underlying stream(s)."
    (let ((stream (mysql-connection-stream c)))
      (when (typep stream 'mysql-compressed-stream)
        (setf (mysql-compressed-stream-sequence-id stream) 0)))
  