[parenscript-devel] random, mapcar, and loop

I have three patches to suggest for parenscript. Two seem relatively minor to me, but a third modifies random to be more like CL:RANDOM. It gives us the following:

CL-USER> (ps:ps (random 2.3)) "2.3 * Math.random();" CL-USER> (ps:ps (random 2)) "Math.floor(2 * Math.random());" ;; as in ps's original random

But I expect the following to be perhaps a bit more contentious...

CL-USER> (ps:ps (random (+ 2 2))) "var max1 = 2 + 2; var val2 = max1 * Math.random(); if (Math.floor(max1) === max1) { Math.floor(val2); } else { val2; };"

Hope I haven't tried too hard to be like CL here? I hope my patches are useful and would like them to be considered for inclusion.

Thanks,

Yong.