anchor.diff:  
   ;;;; delete topic
   
  -(define-route delete-topic ("thread/delete/:topic-id"
  -                            :requirement 'user-name
  -                            :parse-vars (list :topic-id #'parse-integer))
  +(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))
  
positive.code:                                                        :reply-id (getf item :id))
                          item))))
  
  (define-route all-forums-rss ("rss/all.rss"
                                :content-type "application/rss+xml"
                                :render-method 'restas.forum.view:rss-feed)
    (let ((title (format nil "~A: Форумы" (site-name))))
      (list :title title
            :description title
            :link (restas:genurl-with-host 'list-forums)
            :messages (make-rss-items (storage-all-news *storage* *rss-item-count*)))))
                          
  (define-route forum-rss ("rss/:(forum-id).rss"
                           :content-type "application/rss+xml"
                           :render-method 'restas.forum.view:rss-feed)
    (let ((title (format nil
                         "~A: Форум - ~A"
                         (site-name)
  
negative.code: ;;;; view-topic-page
  
    
  (restas:define-route view-topic-page ("thread/:topic-id/page:(page-id)"
                                        :parse-vars (list :topic-id #'parse-integer
                                                          :page-id #'parse-integer))
    (let* ((message (storage-topic-message *storage* topic-id))
           (origin-message-id (getf message :message-id))
           (start (max (* *max-reply-on-page*
  