Function Shuffle-List!

Part of:

package metabang.utilities
( shuffle-list! < list > &key < generator > < times > )
Destructively rearrange the elements of a list by performing 'times' swaps. If
times is not specified, it will perform 4 times the sequence's length swaps.