anchor.diff:  	  (write-to-client client "~&Invalid username, please try again.")
   	  (prompt-username client)))))
    
  -(defun validate-login (client account)
  +(defun/cc validate-login (client account)
     "Prompts the user for a password, and validates the login."
     (let ((password (prompt-client client "~&Password: ")))
       (if (equal password (password account))
   	account
   	(validate-login client account))))
   
  -(defun account-menu (client)
  +(defun/cc account-menu (client)
     "Simple selection menu that new clients once they've logged into an account."
     (write-to-client client "~&Choose your destiny: ~%")
     (write-to-client client "-----------------------~%")
  
positive.code:   "Fetches an account using a username."
    (find username *accounts* :key #'string-equal))
  
  (defun login-client (client)
    "Logs a user into their account"
    (let ((account (validate-login client (prompt-username client))))
      (when account
  
negative.code: 	  (setup-username client)))))
  
  ;; TODO: This is horrible insecure. Add some encryption eventually
  (defun/cc setup-password (client)
    "Prompts client for a password."
    (let* ((password (prompt-client client "Please choose a password"))
  	 (pass-confirm (prompt-client client "Please retype the password")))
  