0.pre7.49:

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

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 9ad9f7e..e426747 100644 (file)
--- a/src/compiler/float-tran.lisp
+++ b/src/compiler/float-tran.lisp
@@ -154,8 +154,7 @@
 (deftransform scale-float ((f ex) (single-float *) * :when :both)
   (if (and #!+x86 t #!-x86 nil
           (csubtypep (continuation-type ex)
-                     (specifier-type '(signed-byte 32)))
-          (not (byte-compiling)))
+                     (specifier-type '(signed-byte 32))))
       '(coerce (%scalbn (coerce f 'double-float) ex) 'single-float)
       '(scale-single-float f ex)))