Disable some deftransforms for now

  (frob %random-single-float single-float)

  (frob %random-double-float double-float))

#-(or new-random random-mt19937)

#-(or new-random random-mt19937 rand-xoroshiro)

(deftransform random ((num &optional state)

		      ((integer 1 #.random-fixnum-max) &optional *))

  _N"use inline fixnum operations"

  '(values (truncate (%random-double-float (coerce num 'double-float)

		      (or state *random-state*)))))

#+random-mt19937

#+(or random-mt19937)

(deftransform random ((num &optional state)

		      ((integer 1 #.(expt 2 32)) &optional *))

  _N"use inline (unsigned-byte 32) operations"