Skip to content
Snippets Groups Projects
Commit 7362e561 authored by Raymond Toy's avatar Raymond Toy
Browse files

Disable some deftransforms for now

parent 8d363473
No related branches found
No related tags found
No related merge requests found
......@@ -236,7 +236,7 @@
(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"
......@@ -259,7 +259,7 @@
'(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"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment