anchor.diff:  (defun change-password (server new-password)
     "Change a Neo4J user's password.
      If the db operation is successful, update the server object so that this takes immediate effect within this server.
  -   NB: remember to update whatever you're using to init"
  +   NB: remember to update whatever you're using to initialise your db connection."
     (multiple-value-bind (body numeric verbal headers)
       (neo4j-cypher-post-request server
                                  `((:password . ,new-password))
  
positive.code: 
  (defun get-user-status (server)
    "Authenticate to the Neo4J server and confirm the status of the database user.
    200/OK means the credentials are good.
    401/Unauthorized means they're not.
    The presence of (:PASSWORD--CHANGE--REQUIRED . T) in the body of the reply, well, you get the hint."
    (neo4j-cypher-get-request server (concatenate 'string "/user/" (dbuser server))))
  
  (defun neo4j-cypher-post-request (endpoint content &optional uri)
  
negative.code: 
  (defun neo4j-cypher-get-request (endpoint uri)
    "Send a GET request to the legacy Cypher API, and return the parsed result.
     DEPRECATED: use neo4j-transaction instead, unless you have a specific reason not to."
    (multiple-value-bind (content code headers uri stream ignore reason)
      (drakma:http-request
        (concatenate 'string (base-url endpoint) uri)
        :accept "application/json; charset=UTF-8"
        :content-type "application/json"
        :additional-headers `(("authorization"
                               ,(concatenate 'string "Basic "
                                             (cl-base64:string-to-base64-string
                                               (format nil "~A:~A"
                                                       (dbuser endpoint)
                                                       (dbpasswd endpoint)))))))
  