diff options
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index f913fe1998e..942bd5e9815 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -3153,4 +3153,4 @@ extern Lisp_Object Vdirectory_sep_char; fixnum. */ #define make_fixnum_or_float(val) \ - (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number (val)) + (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number ((int)(val))) |