Mercurial > emacs
comparison src/lisp.h @ 13357:74a891e3ef44
(CHECK_CHAR_TABLE): Don't accept nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 31 Oct 1995 00:01:29 +0000 |
| parents | eac254855aad |
| children | 941c37982f37 |
comparison
equal
deleted
inserted
replaced
| 13356:a2a68cba7996 | 13357:74a891e3ef44 |
|---|---|
| 990 | 990 |
| 991 #define CHECK_SYMBOL(x, i) \ | 991 #define CHECK_SYMBOL(x, i) \ |
| 992 do { if (!SYMBOLP ((x))) x = wrong_type_argument (Qsymbolp, (x)); } while (0) | 992 do { if (!SYMBOLP ((x))) x = wrong_type_argument (Qsymbolp, (x)); } while (0) |
| 993 | 993 |
| 994 #define CHECK_CHAR_TABLE(x, i) \ | 994 #define CHECK_CHAR_TABLE(x, i) \ |
| 995 do { if (!CHAR_TABLE_P ((x)) && !NILP (x)) \ | 995 do { if (!CHAR_TABLE_P ((x))) \ |
| 996 x = wrong_type_argument (Qchar_table_p, (x)); } while (0) | 996 x = wrong_type_argument (Qchar_table_p, (x)); } while (0) |
| 997 | 997 |
| 998 #define CHECK_VECTOR(x, i) \ | 998 #define CHECK_VECTOR(x, i) \ |
| 999 do { if (!VECTORP ((x))) x = wrong_type_argument (Qvectorp, (x)); } while (0) | 999 do { if (!VECTORP ((x))) x = wrong_type_argument (Qvectorp, (x)); } while (0) |
| 1000 | 1000 |