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:           (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))
  
negative.code:         (encode-json-to-string `((status . "ok") (state . ,next))))
        403))
  
  (define-route task-state ("tasks/state" :method :post
                                          :content-type "text/json")
    (if (logged-in-p)
        (let* ((id (hunchentoot:post-parameter "id"))
               (current-state (story-get-state 'task id))
  