anchor.diff:  	(progn
   	  (write-to-client "~%You chose ~a as your email address.~%" email)
   	  (if (client-y-or-n-p client "Is this email address correct?")
  -	     email
  -	     (setup-email client)))
  -	(progn
  -	  (write-to-client client "I'm sorry, ~a is not a valid email address.~%" email)	  
  -	  (setup-email client)))))
  +	      email
  +	    (setup-email client)))
  +      (progn
  +	(write-to-client client "I'm sorry, ~a is not a valid email address.~%" email)	  
  +	(setup-email client)))))
   
   ;; NOTE: This isn't used (yet)
   (defun/cc setup-name (client)
  
positive.code: (defun hash-password (password)
    (ironclad:byte-array-to-hex-string
     (ironclad:digest-sequence
       :sha256
       (ironclad:ascii-string-to-byte-array
        password))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;  Account Management ;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;
  ;
  
  (defun confirm-username-sanity (username)
    (and (<= (length username) 16)
  
negative.code:   (cl-ppcre:scan 
     "^[\\w._%\\-]+@[\\w.\\-]+\\.([A-Za-z]{2}|com|edu|org|net|biz|info|name|aero|biz|info|jobs|museum|name)$" 
     email))
  
  (defun confirm-password-sanity (password)
    (not (find-if-not #'alphanumericp password)))