(setf *random-state* (make-random-state t))
(defun randlist ()
(let ((lst ()))
(dotimes (i 10)
(setf lst (cons (random 101) lst)))
lst))
(defvar var1 (randlist))
(print var1)
(defvar var 2)
(defvar var 3)
(print var) ; second defvar is ignored, because var was already bound
(setf var 3) ; setf overrides the value of var
(print var)
(defparameter var2 2)
(defparameter var2 3) ; second defparameter overrides the previous value
(print var2)
KHNldGYgKnJhbmRvbS1zdGF0ZSogKG1ha2UtcmFuZG9tLXN0YXRlIHQpKQoKKGRlZnVuIHJhbmRsaXN0ICgpCiAgKGxldCAoKGxzdCAoKSkpCiAgICAoZG90aW1lcyAoaSAxMCkKICAgICAgIChzZXRmIGxzdCAoY29ucyAocmFuZG9tIDEwMSkgbHN0KSkpCiAgIGxzdCkpCiAgIAooZGVmdmFyIHZhcjEgKHJhbmRsaXN0KSkKCihwcmludCB2YXIxKQoKKGRlZnZhciB2YXIgMikKKGRlZnZhciB2YXIgMykKKHByaW50IHZhcikgOyBzZWNvbmQgZGVmdmFyIGlzIGlnbm9yZWQsIGJlY2F1c2UgdmFyIHdhcyBhbHJlYWR5IGJvdW5kCgooc2V0ZiB2YXIgMykgOyBzZXRmIG92ZXJyaWRlcyB0aGUgdmFsdWUgb2YgdmFyCihwcmludCB2YXIpCgooZGVmcGFyYW1ldGVyIHZhcjIgMikKKGRlZnBhcmFtZXRlciB2YXIyIDMpIDsgc2Vjb25kIGRlZnBhcmFtZXRlciBvdmVycmlkZXMgdGhlIHByZXZpb3VzIHZhbHVlCihwcmludCB2YXIyKQ==