anchor.diff:  ) ; progn
   
   (defmethod mysql-connection-remove-stale-prepared-statements ((c mysql-base-connection))
  +  "Removes from C all prepared statements that do not have C as their connection."
     (setf (mysql-connection-prepared-statements *mysql-connection*)
           (delete-if-not
            #'(lambda (ps)
  
positive.code:     payload))
  
  (defmethod mysql-connection-command-init ((c mysql-base-connection) command)
    (let ((stream (mysql-connection-stream c)))
      (when (typep stream 'mysql-compressed-stream)
        (setf (mysql-compressed-stream-sequence-id stream) 0)))
  
negative.code:   (values))
  
  (defmethod mysql-connection-read-packet ((c mysql-base-connection))
    "Read a wire packet from C's stream."
    (multiple-value-bind (payload seq-id)
        (read-wire-packet (mysql-connection-stream c)
                          :expected-sequence-id (mysql-connection-sequence-id c))
  