From a7fdcf5cf3421779a25f86a046bed06e732f1d2c Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Fri, 25 Aug 2017 17:42:17 +0200
Subject: [PATCH] fix sign of infinity returned by expt of 0.0 and a negative
 number, e.g. (expt 0.0 -1.0)

---
 src/c/numbers/expt.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/numbers/expt.d b/src/c/numbers/expt.d
index 15eae4edf..d864cb550 100644
--- a/src/c/numbers/expt.d
+++ b/src/c/numbers/expt.d
@@ -99,7 +99,7 @@ ecl_expt(cl_object x, cl_object y)
     FEwrong_type_nth_arg(@[expt], 1, x, @[number]);
   }
   if (ecl_zerop(x)) {
-    z = ecl_times(x, y);
+    z = x;
     if (!ecl_plusp(ty==t_complex?y->complex.real:y))
       z = ecl_divide(ecl_make_fixnum(1), z);
   } else if (ty != t_fixnum && ty != t_bignum) {