anchor.diff:      (send-api-request-with-auth token-tenant-id
                                   uri
                                   "8774"
  -                                (create-uri-path "/v2/"
  +                                (create-uri-path "/v2.1/"
                                                    (get-tenant-id) "/servers")
                                   :post
                                   :content (st-json:write-json-to-string
  
positive.code:                                          (list "addFloatingIp"
                                                 (alexandria:plist-hash-table
                                                  (list "address" floating-ip)))))))
  
negative.code:                                                   (list "name" server-name
                                                          "imageRef" image-id
                                                          "flavorRef" flavor-id)))))))))
  
  (defun delete-server (uri server-id &key (token-tenant-id *token-and-tenant-id*))
    (send-api-request-with-auth token-tenant-id
                                uri
                                "8774"
                                (create-uri-path "/v2.1/"
                                                 (get-tenant-id)
                                                 "/servers/"
                                                 server-id)
                                :delete))
  
  (defun list-floating-ips (uri &key (token-tenant-id *token-and-tenant-id*))
    (loop
  