anchor.diff:                                        :login-status :not-logged-on
                                         :method :post)
     (let ((login-info (with-rulisp-db
  -                      (postmodern:query (format nil
  -                                                "SELECT user_id, login, email, password FROM users
  -                                                    WHERE email = '~A' AND status IS NULL"
  -                                                (hunchentoot:post-parameter "email"))
  +                      (postmodern:query (:select 'user-id 'login 'email :from 'users
  +                                                 :where (:and (:= 'email (hunchentoot:post-parameter "email"))
  +                                                              (:is-null 'status)))
                                           :row))))
       (if login-info
           (let ((mark (calc-sha1-sum (write-to-string login-info))))
             (with-rulisp-db
  -            (postmodern:execute (format nil
  -                                        "INSERT INTO forgot (mark, user_id) VALUES('~A', ~A)"
  -                                        mark
  -                                        (first login-info))))
  +            (postmodern:execute (:insert-into 'forgot
  +                                              :set 'mark mark 'user_id (first login-info))))
             (send-noreply-mail (third login-info)
                                "Восстановление пароля"
                                (expand-file (skinpath "mail/forgot")
                                             (acons :host (hunchentoot:host)
  -                                                 (acons :link (format nil
  -                                                                      "http://~A~A"
  -                                                                      (hunchentoot:host)
  -                                                                      (genurl 'reset-password :mark mark))
  +                                                 (acons :link (genurl-with-host 'reset-password :mark mark)
                                                           nil))))
             (tmplpath "account/forgot-send-email.xml"))
           (let ((badform (in-pool (xtree:parse (forgot-form)))))
  
positive.code: 
  (defun forgot-mark-exist-p (mark)
    (with-rulisp-db
      (postmodern:query (format nil
                                "SELECT mark FROM forgot WHERE mark = '~A'"
                                mark)
                        :single)))
  
  (define-simple-route reset-password ("forgot-password/:(mark)"
  
negative.code:   (if (forgot-mark-exist-p mark)
        (reset-password-form)
        hunchentoot:+HTTP-NOT-FOUND+))
  
        
  (define-simple-route reset-password/post ("forgot-password/:(mark)"
                                            :overlay-master *master*
  