anchor.diff:    (setf *connection* nil))
   
   (defun reconnect ()
  -  "Close and re-open the connection to Redis server."
  -  (close-connection *connection*)
  -  (open-connection *connection*))
  +  "Close and reopen the connection to Redis server."
  +  (reopen-connection *connection*))
   
   ;;; end
positive.code:   "Close the stream of CONNECTION."
    (socket-close (connection-socket connection)))
  
  (defun ensure-connection (connection)
    "Ensure that CONNECTION is open before doing anything with it."
    (unless connection
  
negative.code:        (ensure-connection ,=connection=)
         (labels ((,=body= ()
                    (provide-reconnect-restart (progn ,@body)
                      (reopen-connection ,=connection=)
                      (,=body=))))
           (,=body=)))))
  
  