Lisp Biased Number Generator

Is there a way to specify bias in a random generator in lisp?

For instance if I had a range of numbers. How can I specify that the numbers in the first half of the range are 3x more likely than those in the last half?

Thanks