diff options
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/lisp.h b/src/lisp.h index 49923be702a..d3b1c39c8fb 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -3012,14 +3012,6 @@ CHECK_FIXNAT (Lisp_Object x) | |||
| 3012 | CHECK_RANGED_INTEGER (x, 0, TYPE_MAXIMUM (type)); \ | 3012 | CHECK_RANGED_INTEGER (x, 0, TYPE_MAXIMUM (type)); \ |
| 3013 | } while (false) | 3013 | } while (false) |
| 3014 | 3014 | ||
| 3015 | #define CHECK_FIXNUM_COERCE_MARKER(x) \ | ||
| 3016 | do { \ | ||
| 3017 | if (MARKERP ((x))) \ | ||
| 3018 | XSETFASTINT (x, marker_position (x)); \ | ||
| 3019 | else \ | ||
| 3020 | CHECK_TYPE (FIXNUMP (x), Qinteger_or_marker_p, x); \ | ||
| 3021 | } while (false) | ||
| 3022 | |||
| 3023 | INLINE double | 3015 | INLINE double |
| 3024 | XFLOATINT (Lisp_Object n) | 3016 | XFLOATINT (Lisp_Object n) |
| 3025 | { | 3017 | { |