Fix Fnatnump typos

Problem reported by Glenn Morris in:
https://lists.gnu.org/r/emacs-devel/2018-08/msg00946.html
* src/floatfns.c (Fexpt):
* src/xselect.c (cons_to_x_long):
Don't assume Lisp_Object values are scalars.

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,
 
   /* Common Lisp spec: don't promote if both are integers, and if the
      result is not fractional.  */
-  if (INTEGERP (arg1) && Fnatnump (arg2))
+  if (INTEGERP (arg1) && !NILP (Fnatnump (arg2)))
     return expt_integer (arg1, arg2);
 
   return make_float (pow (XFLOATINT (arg1), XFLOATINT (arg2)));