anchor.diff:  
   ;;;; articles
   
  -(restas:define-submodule rulisp-articles (#:restas.wiki)
  +(restas:mount-submodule rulisp-articles (#:restas.wiki)
     (restas.wiki:*baseurl* '("articles"))
     (restas.wiki:*index-page-title* "Статьи")
     (restas.wiki:*storage* (make-instance 'restas.wiki:file-storage
  
positive.code:                                               (getf content :content))))
  
  
  (restas:define-submodule rulisp-wiki (#:restas.wiki)
    (restas.wiki:*baseurl* '("wiki"))
    (restas.wiki:*storage* (make-instance 'restas.wiki:file-storage :dir *wiki-dir*))
    (restas.wiki:*wiki-user-function* #'compute-user-login-name)
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun compute-user-login-name ()
    (labels ((rulisp (submodule)
               (if (eql (restas:submodule-module submodule)
                        #.*package*)
                   submodule
                   (rulisp (restas:submodule-parent submodule)))))
      (restas:with-submodule-context (restas:find-submodule 'rulisp-auth (rulisp restas:*submodule*))
        (restas.simple-auth::compute-user-login-name))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; rulisp templates
  