anchor.diff:                                                    (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
  
positive.code:                                          (list "addFloatingIp"
                                                 (alexandria:plist-hash-table
                                                  (list "address" floating-ip)))))))
  
negative.code: 
  ;;; "openstack-rest-client" goes here. Hacks and glory await!
  
  (defvar *openstack-uri* nil)
  
  (defvar *username-password* nil)
  
  (defvar *token-and-tenant-id* nil)
  
  (defun get-token (&key (token-tenant-id *token-and-tenant-id*))
    (getf token-tenant-id :token))
  