anchor.diff:        (progn
           (with-rulisp-db
             (postmodern:with-transaction ()
  -            (postmodern:execute (format nil
  -                                        "UPDATE users
  -                                             SET status = NULL
  -                                             WHERE user_id = (SELECT user_id FROM confirmations WHERE mark = '~A')"
  -                                        mark))
  -            (postmodern:execute (format nil
  -                                        "DELETE FROM confirmations WHERE mark = '~A'"
  -                                        mark))))
  +            (postmodern:execute (:update 'users 
  +                                         :set 'status :null  
  +                                         :where (:= 'user_id
  +                                                    (:select 'user_id
  +                                                             :from 'confirmations
  +                                                             :where (:= 'mark mark)))))
  +            (postmodern:execute (:delete-from 'confirmations
  +                                              :where (:= 'mark mark)))))
           (tmplpath "account/success-register.xml"))
         (show-confirmation-form)))
   
  
positive.code:           (t (setf success t)))
          (if success
              (progn
                (with-rulisp-db
                  (postmodern:with-transaction ()
                    (postmodern:execute (format nil
                                                "UPDATE users SET password = '~A'
                                                  WHERE user_id = (SELECT user_id FROM forgot WHERE mark = '~A')"
                                                (calc-md5-sum password)
                                                mark))
                    (postmodern:execute (format nil
                                                "DELETE FROM forgot WHERE mark = '~A'"
                                                mark))))
                (tmplpath "account/reset-password-success.xml"))
              (progn
                (fill-form reset-form (hunchentoot:post-parameters*))
  
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)"
  