From 0515b223c2158984e135e84be97c01d5b8d0ae75 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 1 Jan 2019 15:13:22 -0800
Subject: [PATCH] =?utf8?q?Don=E2=80=99t=20limit=20range=20error=20reports?=
 =?utf8?q?=20to=20fixnums?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

* src/lisp.h (CHECK_RANGED_INTEGER): When signaling an error,
don’t arbitrarily limit the reported valid range to fixnums.
---
 src/lisp.h | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/lisp.h b/src/lisp.h
index 14a61d3f102..dce61c165cf 100644
--- 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 {									\
-- 
2.39.5