Mercurial > emacs
changeset 9144:0e29f6a4fe7c
(Fmake_list, Fmake_vector, Fmake_string, make_event_array): Use type test
macros.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 27 Sep 1994 03:16:02 +0000 |
| parents | 069f8b6cdfe6 |
| children | dda75a4dbbfb |
| files | src/alloc.c |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Tue Sep 27 03:15:02 1994 +0000 +++ b/src/alloc.c Tue Sep 27 03:16:02 1994 +0000 @@ -570,7 +570,7 @@ register Lisp_Object val; register int size; - if (XTYPE (length) != Lisp_Int || XINT (length) < 0) + if (!INTEGERP (length) || XINT (length) < 0) length = wrong_type_argument (Qnatnump, length); size = XINT (length); @@ -594,7 +594,7 @@ register Lisp_Object vector; register struct Lisp_Vector *p; - if (XTYPE (length) != Lisp_Int || XINT (length) < 0) + if (!INTEGERP (length) || XINT (length) < 0) length = wrong_type_argument (Qnatnump, length); sizei = XINT (length); @@ -875,7 +875,7 @@ register Lisp_Object val; register unsigned char *p, *end, c; - if (XTYPE (length) != Lisp_Int || XINT (length) < 0) + if (!INTEGERP (length) || XINT (length) < 0) length = wrong_type_argument (Qnatnump, length); CHECK_NUMBER (init, 1); val = make_uninit_string (XINT (length)); @@ -975,7 +975,7 @@ /* The things that fit in a string are characters that are in 0...127, after discarding the meta bit and all the bits above it. */ - if (XTYPE (args[i]) != Lisp_Int + if (!INTEGERP (args[i]) || (XUINT (args[i]) & ~(-CHAR_META)) >= 0200) return Fvector (nargs, args);