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: 	 (lastname (prompt-client client "Please enter your first name")))
      (if (client-y-or-n-p client "Greetings ~a ~a. Is this name correct" firstname lastname)
  	(values firstname lastname)
  	(setup-name client))))
  
  ;;;
  ;;; Account Management
  
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)))