X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffloat-tran.lisp;h=681aa48868c8fd2904e340e78ff34f6db506baeb;hb=c6e249ac371fae7bf2d04defa9433720108376e4;hp=dc2cadc311940bbcc7ba73bf11b8634db4c75295;hpb=237ec432952f0e7d4a4bcd5f683942a253cac56a;p=sbcl.git

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index dc2cadc..681aa48 100644
--- a/src/compiler/float-tran.lisp
+++ b/src/compiler/float-tran.lisp
@@ -512,8 +512,6 @@
     'single-float))
 (deftransform expt ((x y) ((double-float 0d0) (signed-byte 32)) *)
   `(%pow x (coerce y 'double-float)))
-(deftransform expt ((x y) ((integer -1 -1) integer) *)
-  `(if (evenp y) 1 -1))
 
 ;;; ANSI says log with base zero returns zero.
 (deftransform log ((x y) (float float) float)