anchor.diff:  ;;; Account Management
   ;;;
   
  -;; NIL
  +;;NIL
   
   
   ;;;
  
positive.code:      (ironclad:ascii-string-to-byte-array
        password))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;  Account Management ;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;
  ;
  
  (defun confirm-username-sanity (username)
    (and (<= (length username) 16)
         (not (find-if-not #'alphanumericp username))))
  
  (defun confirm-email-sanity (email)
    (cl-ppcre:scan 
     "^[\\w._%\\-]+@[\\w.\\-]+\\.([A-Za-z]{2}|com|edu|org|net|biz|info|name|aero|biz|info|jobs|museum|name)$" 
     email))
  
negative.code: ;;;
  ;;; Utils
  ;;;
  
  (defun hash-password (password)
    (ironclad:byte-array-to-hex-string
     (ironclad:digest-sequence
  