14 lines
251 B
Common Lisp
14 lines
251 B
Common Lisp
(setq *print-case* :downcase)
|
|
|
|
(format t "Username: ")
|
|
(defvar *username* (read))
|
|
(format t "Password: ")
|
|
(defvar *password* (read))
|
|
|
|
(defparameter tes1 'sweatshirt)
|
|
(defparameter tes2 'Daemons0!)
|
|
|
|
(terpri)
|
|
|
|
(format t "~a~%" (equalp tes1 *username*))
|