anchor.diff:  
   (define-route logout-page ("logout")
     (if (logged-in-p)
  -      (progn
  -        (setf (hunchentoot:session-value :username) nil)))
  +      (setf (hunchentoot:session-value :username) nil))
     (redirect 'login-page))
   
   (defun json-to-string (obj)
  
positive.code:       (<:html :lang "en"
                (<:head (<:meta :charset "utf-8")
                        (page-title "Login")
                        (<:link :href *scrumelo-bootstrap-css-location*
                                :rel "stylesheet" :type "text/css")
                        (<:script :type "text/javascript"
                                  :src *scrumelo-bootstrap-js-location*)
                        (<:script :src "https://login.persona.org/include.js")
                        (<:script :src "/js/login.js"))
                (<:body
                 (<:div :class "navbar navbar-static-top navbar-inverse"
                        (<:div :class "navbar-inner"
                               (<:div :class "container"
                                      (<:a :class "brand" "scrumli")
                                      (<:ul :class "nav pull-right"
                                            (<:li (<:a :href "javascript:login()"
                                                       "Login"))))))
                 (<:div :class "container"
                        (<:br)
                        (<:div :class "hero-unit"
  
negative.code:           (redirect 'main))
          403)))
  
  (define-route scrumli-story ("stories/:id")
    (if (logged-in-p)
        (with-output-to-string (out)
          (encode-json (get-story id) out))
  