19 lines
544 B
Common Lisp
19 lines
544 B
Common Lisp
(setq *print-case* :downcase)
|
|
|
|
(format t "Enter your username: ")
|
|
(defvar *username* (read))
|
|
(format t "Enter your password: ")
|
|
(defvar *password* (read))
|
|
|
|
(setq use 'sweatshirt)
|
|
(setq pass 'Daemons0!)
|
|
|
|
(defun varify (username password)
|
|
(if (and (eq username use) (eq password pass))
|
|
(progn
|
|
(format t "Thank you for logging in, ~a! ~%" username)
|
|
(format t "Will check again soon! ~%"))
|
|
(format t "You are not authorized to use this device, ~a." username)))
|
|
|
|
(varify *username* *password*)
|