anchor.diff:                            :password-salt   salt
                             :password-digest (password-digest password salt))))
              (login account)
  -           #/))))
  +           #/)))))
   
   ;;; password recovery
   
  
positive.code:     #H[<div class="error-info">${message}</div>]))
  
  (defpage /site/register "Register" (name email error)
    (if *account*
        (redirect #/)
        (progn
  #H[
  
negative.code: 
  (defhandler /site/do-register (name email password)
    (let ((name (if name (escape-for-html name) "")))
      (acond
        ((youre-banned?) #/)
        ((cond ((or (not name) (string= name "")) "name")
               ((find-account name) "nametaken")
               ((not (email-address? email)) "email")
               ((< (length password) 6) "password"))
         #/site/register?name={name}&email={email}&error={it})
        (t (let* ((salt (make-random-string 50))
                  (account (make-instance
                            'account
                            :name            name
  