anchor.diff:  (defdeluge get-host-status "web.get_host_status" (host-id)
     (yason:encode-array-element host-id))
   
  -(defdeluge update-ui "web.update_ui" (params &key state tracker)
  +(defdeluge update-ui "web.update_ui" (state tracker &rest params)
     (yason:with-array ()
       (dolist (i params) (yason:encode-array-element i)))
     (yason:with-object ()
  
positive.code:     (when tracker
        (yason:encode-object-element "tracker_host" tracker))))
  
  (defdeluge get-torrent-status "web.get_torrent_status" (torrent-id params)
    (yason:encode-array-element torrent-id)
    (yason:with-array ()
      (dolist (i params) (yason:encode-array-element i))))
  
negative.code:                        (unzip-response body)
                         body)))
           (format t "~s~%" json)
           (make-instance ',obj
                          :json (and (= status 200) (yason:parse json))
                          :status status
                          :headers headers)))))
  
  (let ((cookie-jar (make-instance 'drakma:cookie-jar)))
    (defrequest post-request ("/json" response json)
  