anchor.diff:          :report "Replace it with a new connection."
           (disconnect))))
     (setf *connection* (make-instance 'redis-connection
  -                                    :host host :port port)))
  +                                    :host host :port port :auth auth)))
   
   
   (defun disconnect ()
  
positive.code:                                         :element-type 'flex:octet)))
                                  :external-format +utf8+
                                  #-lispworks :element-type
                                  #-lispworks 'flex:octet)))
  
  (defun close-connection (conn)
    "Close the socket of CONN."
  
negative.code:   (reopen-connection *connection*))
  
  (defmacro with-connection ((&key (host #(127 0 0 1))
                                   (port 6379)
                                   auth)
                             &body body)
    "Evaluate BODY with the current connection bound to a new connection
  specified by the given HOST and PORT"
    `(let ((*connection* (make-instance 'redis-connection
                                        :host ,host :port ,port :auth ,auth)))
       (unwind-protect (progn ,@body)
         (disconnect))))
  
  