8 lines
166 B
Common Lisp
8 lines
166 B
Common Lisp
|
(setq *print-case* :downcase)
|
||
|
|
|
||
|
|
(defparameter *accounts*
|
||
|
|
'((Admin (sweatshirt))
|
||
|
|
(User1 (samsepi0l))))
|
||
|
|
|
||
|
|
(format t "Admin data: ~a ~%" (assoc 'admin *accounts*))
|