anchor.diff:                                (mapcar #'(lambda (jso)
                                             (cons (st-json:getjso "OS-EXT-IPS:type" jso)
                                                   (st-json:getjso "addr" jso)))
  -                                      (st-json:getjso
  -                                       "private"
  -                                       (st-json:getjso
  -                                        "addresses"
  -                                        jso)))))))
  +                                      (st-json:getjso* "addresses.private" jso))))))
             (st-json:getjso "servers" (st-json:read-json response))))
   
   (def-openstack-api create-server (server-name image-id flavor-id)
  
positive.code:                (alexandria:plist-hash-table
                  (list "pool" pool))))
    "Creates/allocates a new floating IP."
    (st-json:getjso "ip" (st-json:getjso "floating_ip" (st-json:read-json response))))
  
  (def-openstack-api associate-floating-ip (server-id floating-ip)
      (response :post ((get-public-url "nova") "/servers/" server-id "/action")
  
negative.code:                              "imageRef" image-id
                               "flavorRef" flavor-id))))))
    "Creates a new server."
    (st-json:getjso* "server.id" (st-json:read-json response)))
  
  (def-openstack-api delete-server (server-id)
      (response :delete ((get-public-url "nova") "/servers/" server-id))
  