anchor.diff:              (values mark
                       (second login-info)
                       (third login-info)))))))
  -  )
   
   (defmethod restas.simple-auth:storage-forgot-mark-exist-p ((storage rulisp-db-storage) mark)
     (with-db-storage storage
  
positive.code: 
  (defmethod restas.simple-auth:storage-create-account ((storage rulisp-db-storage) invite)
    (with-db-storage storage
      (postmodern:with-transaction ()
        (postmodern:execute (:update 'users 
                                     :set 'status :null  
                                     :where (:= 'user_id
                                                (:select 'user_id
                                                         :from 'confirmations
                                                         :where (:= 'mark invite)))))
        (postmodern:execute (:delete-from 'confirmations
                                          :where (:= 'mark invite))))))
  
  (defmethod restas.simple-auth:storage-create-forgot-mark ((storage rulisp-db-storage)  login-or-email)
    (with-db-storage storage
  
negative.code:                                :from 'forgot
                                 :where (:= 'mark  mark))
                        :single)))
  
  (defmethod restas.simple-auth:storage-change-password ((storage rulisp-db-storage) mark password)
    (with-db-storage storage
  