anchor.diff:  ;;;
   ;;; Utils
   ;;;
  +
   (defun hash-password (password)
     (ironclad:byte-array-to-hex-string
      (ironclad:digest-sequence
  
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: ;;; Account Management
  ;;;
  
  ;;NIL
  
  
  ;;;
  