X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Ffloat-tran.lisp;fp=src%2Fcompiler%2Ffloat-tran.lisp;h=8d2eaed60838079e6e5da62b986bb709860cfb9d;hb=18911695a5625fc908b8c07e97d33bf54749a962;hp=3efdaa19f59c830f330560969bc94693241977fc;hpb=ef61e6c46ca429b84a61e90efcd7ac11261f92c7;p=sbcl.git

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 3efdaa1..8d2eaed 100644
--- 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."))))
 
 ;;;; float accessors