anchor.diff:  
   (defun register-mark-exist-p (mark)
     (with-rulisp-db
  -    (postmodern:query (format nil
  -                              "SELECT mark FROM confirmations WHERE mark = '~A'"
  -                              mark)
  +    (postmodern:query (:select 'mark :from 'confirmations :where (:= 'mark mark))
                         :single)))
     
   (define-simple-route registration-confirmation ("register/confirmation/:(mark)"
  
positive.code:                                       :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"))
                                          :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))))
            (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))
                                                          nil))))
            (tmplpath "account/forgot-send-email.xml"))
          (let ((badform (in-pool (xtree:parse (forgot-form)))))
  
negative.code: 
  (defun forgot-mark-exist-p (mark)
    (with-rulisp-db
      (postmodern:query (:select 'mark
                                 :from 'forgot
                                 :where (:= 'mark  mark))
                        :single)))
  
  (define-simple-route reset-password ("forgot-password/:(mark)"
  