anchor.diff:  
   ;;;; list all forums
   
  -(define-route list-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)
  
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 topic
  
  (restas:define-route delete-topic ("thread/delete/:topic-id"
                                     :requirement 'user-name
                                     :parse-vars (list :topic-id #'parse-integer))
    (if (storage-admin-p *storage* (user-name))
        (restas:redirect 'list-topics
                         :forum-id (storage-delete-topic *storage* topic-id))
  