14 lines
335 B
Common Lisp
14 lines
335 B
Common Lisp
|
(defvar *print-case* :downcase)
|
||
|
|
|
||
|
|
(defvar admin (list :username "sweatshirt" :password "Daemons0!"))
|
||
|
|
|
||
|
|
(defvar *accounts* nil)
|
||
|
|
|
||
|
|
(push admin *accounts*)
|
||
|
|
|
||
|
|
(dolist (account *accounts*)
|
||
|
|
(format t "~{ ~a : ~a ~}~%" account)
|
||
|
|
(if (and (member "sweatshirt" account) (member "Daemons0!" account))
|
||
|
|
(progn
|
||
|
|
(format t "Fact.~%"))))
|