anchor.diff:                                           :forum-id forum-id)
             :messages (make-rss-items (storage-forum-news *storage* forum-id *rss-item-count*)))))
   
  -(define-route topic-rss ("rss/threads/:(topic-id).rss"
  -                         :parse-vars `(:topic-id ,#'parse-integer)
  -                         :content-type "application/rss+xml"
  -                         :render-method 'restas.forum.view:rss-feed)
  +(restas:define-route topic-rss ("rss/threads/:(topic-id).rss"
  +                                :parse-vars `(:topic-id ,#'parse-integer)
  +                                :content-type "application/rss+xml"
  +                                :render-method 'restas.forum.view:rss-feed)
     (let ((message (storage-topic-message *storage* topic-id)))
       (list :title (format nil
                            "~A: ~A"
  
positive.code: 
  ;;;; view forum topics
  
  (define-route list-topics (":forum-id")
    (bind:bind ((start (parse-start))
                ((title total-count) (storage-forum-info *storage* forum-id))
                (href (restas:genurl 'list-topics :forum-id forum-id))
  
negative.code: 
  ;;;; delete reply
  
  (restas:define-route delete-message ("message/delete/:(reply-id)"
                                       :requirement 'user-name)
    (if (storage-admin-p *storage* (user-name))
        (restas:redirect 'view-topic
                         :topic-id (storage-delete-reply *storage* reply-id))
  