anchor.diff:        password))))
   
   ;;; Sanity checkers
  +
   (defun confirm-username-sanity (username)
     "Confirms username sanity. Usernames have to be between 6 and 16 chars long, and may only
   be composed of alphanumeric characters."
  
positive.code:   (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
  ;;;
  
  ;; This is still probably not very safe. That, or the way I'm handling it might be wrong.
  (defun hash-password (password)
    "Password hashing function."
    (ironclad:byte-array-to-hex-string
  