(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*))