(setf *random-state* (make-random-state t))

(defun randlist ()
  (let ((lst ()))
    (dotimes (i 10)
       (setf lst (cons (random 101) lst)))
   lst))
   
(setf var1 (randlist))

(print var1)