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:         (mysql-connection-current-command c) command))
  
  (defun mysql-command-init (command)
    (mysql-connection-command-init *mysql-connection* command))
  
  (defun mysql-current-command-p (command)
    (eq (mysql-connection-current-command *mysql-connection*) command))
  
  (defun mysql-write-packet (payload)
    (mysql-connection-write-packet *mysql-connection* payload))
  
  (defun mysql-read-packet ()
    (mysql-connection-read-packet *mysql-connection*))
  
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))
  