anchor.diff:    "Close the stream of CONNECTION."
     (socket-close (connection-socket connection)))
   
  +(defun reopen-connection (connection)
  +  "Close and reopen CONNECTION."
  +  (close-connection connection)
  +  (open-connection connection))
  +
   (defun ensure-connection (connection)
     "Ensure that CONNECTION is open before doing anything with it."
     (unless connection
  
positive.code:   (setf *connection* nil))
  
  (defun reconnect ()
    "Close and re-open the connection to Redis server."
    (close-connection *connection*)
    (open-connection *connection*))
  
  ;;; end
negative.code:   (unless (open-connection-p connection)
      (signal-connection-error-with-reconnect-restart
       :message "Connection to Redis server lost."
       :restart (reopen-connection connection))))
  
  (defmacro with-reconnect-restart (connection &body body)
    "When, inside BODY, an error occurs that breaks the stream of CONNECTION,
  