diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-12-09 17:07:16 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-12-09 17:11:37 -0800 |
| commit | 48d7720993283a3387807fa5582bb10b1636bba5 (patch) | |
| tree | 74c7b2935470fcb39383390caec8485172243d84 /src/lisp.h | |
| parent | 87bc518afcc3adc23762944ef49f89d375f90260 (diff) | |
| download | emacs-48d7720993283a3387807fa5582bb10b1636bba5.tar.gz | |
Remove CHECK_FIXNUM_CAR etc.
* src/coding.c (CHECK_FIXNAT_CAR, CHECK_FIXNAT_CDR):
* src/lisp.h (CHECK_FIXNUM_CAR, CHECK_FIXNUM_CDR):
Remove. All uses removed. These seem to have been based on
the assumption that the argument cons needs to be modified,
an assumption that is incorrect for fixnums.
(Fdefine_coding_system_internal): Use CHECK_RANGED_INTEGER
instead of a special diagnostic for graphic register numbers.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/lisp.h b/src/lisp.h index 3943bf63ee7..bda848430a2 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -2906,24 +2906,6 @@ CHECK_INTEGER (Lisp_Object x) else \ CHECK_TYPE (INTEGERP (x), Qnumber_or_marker_p, x); \ } while (false) - -/* Since we can't assign directly to the CAR or CDR fields of a cons - cell, use these when checking that those fields contain numbers. */ -INLINE void -CHECK_FIXNUM_CAR (Lisp_Object x) -{ - Lisp_Object tmp = XCAR (x); - CHECK_FIXNUM (tmp); - XSETCAR (x, tmp); -} - -INLINE void -CHECK_FIXNUM_CDR (Lisp_Object x) -{ - Lisp_Object tmp = XCDR (x); - CHECK_FIXNUM (tmp); - XSETCDR (x, tmp); -} /* Define a built-in function for calling from Lisp. `lname' should be the name to give the function in Lisp, |