Don’t limit range error reports to fixnums

* src/lisp.h (CHECK_RANGED_INTEGER): When signaling an error,
don’t arbitrarily limit the reported valid range to fixnums.

diff --git a/src/lisp.h b/src/lisp.h
index 14a61d3f102c29b39b9751d474f5331a9ff9a3ae..dce61c165cf7cfd863cc6ce767f0026827f36ad9 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2841,12 +2841,7 @@ CHECK_FIXNAT (Lisp_Object x)
   do {                                                                 \
     CHECK_FIXNUM (x);                                                  \
     if (! ((lo) <= XFIXNUM (x) && XFIXNUM (x) <= (hi)))                        \
-      args_out_of_range_3                                              \
-       (x,                                                             \
-        make_fixnum ((lo) < 0 && (lo) < MOST_NEGATIVE_FIXNUM           \
-                     ? MOST_NEGATIVE_FIXNUM                            \
-                     : (lo)),                                          \
-        make_fixnum (min (hi, MOST_POSITIVE_FIXNUM)));                 \
+      args_out_of_range_3 (x, INT_TO_INTEGER (lo), INT_TO_INTEGER (hi)); \
   } while (false)
 #define CHECK_TYPE_RANGED_INTEGER(type, x) \
   do {                                                                 \