CommonLispTings/assoc.lisp

8 lines
166 B
Common Lisp
Raw Permalink Normal View History

2023-02-23 21:23:38 +01:00
(setq *print-case* :downcase)
(defparameter *accounts*
'((Admin (sweatshirt))
(User1 (samsepi0l))))
(format t "Admin data: ~a ~%" (assoc 'admin *accounts*))