anchor.diff:  (defun hash-password (password)
     (ironclad:byte-array-to-hex-string
      (ironclad:digest-sequence
  -     :sha256
  -     (ironclad:ascii-string-to-byte-array
  -      password))))
  +    :sha256
  +    (ironclad:ascii-string-to-byte-array
  +     password))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;  Account Management ;;
   ;;;;;;;;;;;;;;;;;;;;;;;;;
  -;
  +					;
   
   (defun confirm-username-sanity (username)
     (and (<= (length username) 16)
  
positive.code: 	(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)))))
  
  ;; NOTE: This isn't used (yet)
  (defun/cc setup-name (client)
  
negative.code: 	  (write-to-client client "Username too long (must be under 16 chars)~%")
  	  (setup-username client)))))
  
  (defun/cc setup-password (client)
    "Prompts client for a password."
    (let* ((password (prompt-client client "~%Choose a password: "))
  	 (pass-confirm (if (confirm-password-sanity password)
  			   (prompt-client client "Retype your password: ")
  			 (progn
  			   (write-to-client client "Password must consist of letters and numbers.")
  			   (setup-password client)))))
      (if (equal password pass-confirm)
  	(hash-password password)
        (progn
  	(write-to-client client "~&Passwords did not match, try again.~%")
  	(setup-password client)))))
  
  (defun/cc setup-email (client)
    "Prompts client for a correct e-mail address."
  