anchor.diff:      #H[<div class="error-info">${message}</div>]))
   
   (defpage /site/register "Register" (name email error)
  -  (if *account*
  +  (if (or *account* (youre-banned?))
         (redirect #/)
         (progn
   #H[
  
positive.code:                           :password-salt   salt
                            :password-digest (password-digest password salt))))
             (login account)
             #/))))
  
  ;;; password recovery
  
  
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
  