anchor.diff:  
   (define-route stories-json ("stories" :content-type "text/json")
     (if (logged-in-p)
  -      (with-output-to-string (out)
  -        (encode-json (get-all-stories) out))
  +      (encode-json-to-string (get-all-stories))
         403))
   
   (defmacro with-post-parameters (parameters &body body)
  
positive.code:       (with-post-parameters ("role" "necessity" "headline" "content")
          (post-story role necessity headline content
                      (hunchentoot:session-value :username))
          (with-output-to-string (out)
            (encode-json '((status . "ok")) out)))
        403))
  
  (define-route tasks-new ("stories/tasks/new" :method :post)
  
negative.code:           (redirect 'main))
          403)))
  
  (define-route scrumli-story ("stories/:id" :content-type "json")
    (if (logged-in-p)
        (encode-json-to-string (get-story id))
        403))
  