diff options
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 8008929be61..77e20d5640b 100644 --- a/src/floatfns.c +++ b/src/floatfns.c | |||
| @@ -210,7 +210,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, | |||
| 210 | 210 | ||
| 211 | /* Common Lisp spec: don't promote if both are integers, and if the | 211 | /* Common Lisp spec: don't promote if both are integers, and if the |
| 212 | result is not fractional. */ | 212 | result is not fractional. */ |
| 213 | if (INTEGERP (arg1) && Fnatnump (arg2)) | 213 | if (INTEGERP (arg1) && !NILP (Fnatnump (arg2))) |
| 214 | return expt_integer (arg1, arg2); | 214 | return expt_integer (arg1, arg2); |
| 215 | 215 | ||
| 216 | return make_float (pow (XFLOATINT (arg1), XFLOATINT (arg2))); | 216 | return make_float (pow (XFLOATINT (arg1), XFLOATINT (arg2))); |