anchor.diff:            (redirect 'main))
           403)))
   
  -(define-route scrumli-story ("stories/:id")
  -  (if (logged-in-p)
  -      (with-output-to-string (out)
  -        (encode-json (get-story id) out))
  -      403))
  +(define-route scrumli-story ("stories/:id" :content-type "json")
  +  (if (logged-in-p)
  +      (encode-json-to-string (get-story id))
  +      403))
  
positive.code:         (encode-json-to-string `((status . "ok") (state . ,next))))
        403))
  
  (define-route task-state ("tasks/state" :method :post)
    (if (logged-in-p)
        (let* ((id (hunchentoot:post-parameter "id"))
               (current-state (story-get-state 'task id))
  
negative.code:       (setf (hunchentoot:session-value :username) nil))
    (redirect 'login-page))
  
  (defun verify-credentials (audience assertion)
    (let ((response
           (http-request "https://verifier.login.persona.org/verify"
                         :method :post :content-type "application/json"
                         :content (encode-json-to-string
                                   `(("assertion" . ,assertion)
                                     ("audience" . ,audience)))
                         :want-stream t)))
  