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:                                                                 :from 'forgot
                                                                  :where (:= 'mark mark)))))
        (postmodern:execute (:delete-from 'forgot :where (:= 'mark mark))))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; pastes 
  
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
  