anchor.diff:  ;;; Account Creation
   ;;;
   
  -(defun setup-account (client)
  +(defun/cc setup-account (client)
     "Sets up user account."
     (write-to-client client "I'm going to need to ask you some questions to make your account.~%")
     (let ((username (setup-username 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: 	  (write-to-client client "~&Invalid username, please try again.")
  	  (prompt-username client)))))
   
  (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/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 "-----------------------~%")
  