Fix the DEFTRANSFORM of RANDOM for hairy integer types.

[sbcl.git] / src / compiler / float-tran.lisp

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 3efdaa1..8d2eaed 100644 (file)
--- a/src/compiler/float-tran.lisp
+++ b/src/compiler/float-tran.lisp
@@ -97,7 +97,8 @@
         ;; KLUDGE: a relatively conservative treatment, but better
         ;; than a bug (reported by PFD sbcl-devel towards the end of
         ;; 2004-11.
-        '(rem (random-chunk (or state *random-state*)) num))))
+        (give-up-ir1-transform
+         "Argument type is too complex to optimize for."))))
 \f
 ;;;; float accessors