- IN_FLOAT2 (f1 = pow (f1, f2), "expt", arg1, arg2);
- return make_float (f1);
-#else /* !LISP_FLOAT_TYPE */
- abort ();
+ IN_FLOAT2 (f1 = pow (f1, f2), "expt", number1, number2);
+ return make_float (f1);
+ }
+#else
+ CHECK_INT_OR_FLOAT (number1);
+ CHECK_INT_OR_FLOAT (number2);
+ return Fexpt (number1, number2);