anchor.diff:                         (unzip-response body)
                          body)))
            (format t "~s~%" json)
  -         (make-instance ',obj :json (yason:parse json) :status status :headers headers)))))
  +         (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)
  
positive.code: (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)
    (yason:with-array ()
      (dolist (i params) (yason:encode-array-element i)))
    (yason:with-object ()
  
negative.code: ;;; "deluge" goes here. Hacks and glory await!
  
  (setf drakma:*header-stream* *standard-output*)
  (setf yason:*parse-json-booleans-as-symbols* t)
  
  (defparameter *host* "localhost")
  (defparameter *port* 8112)
  