Pour mélanger une liste:

(defun shuffle (list)
"Returns a randomly re-ordered copy of list."
(let ((result nil))
(do ()
((null list) result)
(let* ((which (random...