diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 7 |
1 files changed, 1 insertions, 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) | |||
| 2841 | do { \ | 2841 | do { \ |
| 2842 | CHECK_FIXNUM (x); \ | 2842 | CHECK_FIXNUM (x); \ |
| 2843 | if (! ((lo) <= XFIXNUM (x) && XFIXNUM (x) <= (hi))) \ | 2843 | if (! ((lo) <= XFIXNUM (x) && XFIXNUM (x) <= (hi))) \ |
| 2844 | args_out_of_range_3 \ | 2844 | args_out_of_range_3 (x, INT_TO_INTEGER (lo), INT_TO_INTEGER (hi)); \ |
| 2845 | (x, \ | ||
| 2846 | make_fixnum ((lo) < 0 && (lo) < MOST_NEGATIVE_FIXNUM \ | ||
| 2847 | ? MOST_NEGATIVE_FIXNUM \ | ||
| 2848 | : (lo)), \ | ||
| 2849 | make_fixnum (min (hi, MOST_POSITIVE_FIXNUM))); \ | ||
| 2850 | } while (false) | 2845 | } while (false) |
| 2851 | #define CHECK_TYPE_RANGED_INTEGER(type, x) \ | 2846 | #define CHECK_TYPE_RANGED_INTEGER(type, x) \ |
| 2852 | do { \ | 2847 | do { \ |