Function: RANDOM-ELT

Source

(defun random-elt (list)
  (elt list
       (random (length list))))