anchor.diff:  
   ;;;; create new topic
   
  -(define-route create-topic (":forum-id"
  -                            :method :post
  -                            :requirement 'user-name)
  +(restas:define-route create-topic (":forum-id"
  +                                   :method :post
  +                                   :requirement 'user-name)
     (let ((title (hunchentoot:post-parameter "title"))
           (body (hunchentoot:post-parameter "body")))
       (unless (or (string= title "")
  
positive.code:       (list :title title
              :js (js-urls)
              :css '("jquery.wysiwyg.css")
              :href-rss (genurl 'forum-rss :forum-id forum-id)
              :total-count total-count
              :list-forums-href (genurl 'list-forums)
              :href-before (if (< (+ (1- start) *max-topic-on-page*)
                                  total-count)
                               (self-url (+ start *max-topic-on-page*)))
  
negative.code: 
  ;;;; list all forums
  
  (restas:define-route list-forums ("")
    (list :forums (iter (for forum in (storage-list-forums *storage*))
                        (collect (forum-info-plist forum)))
          :feed-href (restas:genurl 'all-forums-rss)
  