Mercurial > emacs
changeset 6458:13b9d23a243a
(Qwholenump): Declared.
(CHECK_NATNUM): Use Qwholenump.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 22 Mar 1994 00:14:10 +0000 |
| parents | 13aa19ca4b4f |
| children | 30fabcc03f0c |
| files | src/lisp.h |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lisp.h Mon Mar 21 22:53:17 1994 +0000 +++ b/src/lisp.h Tue Mar 22 00:14:10 1994 +0000 @@ -771,7 +771,7 @@ #define CHECK_NATNUM(x, i) \ do { if (XTYPE ((x)) != Lisp_Int || XINT ((x)) < 0) \ - x = wrong_type_argument (Qnatnump, (x)); } while (0) + x = wrong_type_argument (Qwholenump, (x)); } while (0) #define CHECK_MARKER(x, i) \ do { if (XTYPE ((x)) != Lisp_Marker) x = wrong_type_argument (Qmarkerp, (x)); } while (0) @@ -1100,7 +1100,8 @@ extern Lisp_Object Qrange_error, Qdomain_error, Qsingularity_error; extern Lisp_Object Qoverflow_error, Qunderflow_error; -extern Lisp_Object Qintegerp, Qnumberp, Qnatnump, Qsymbolp, Qlistp, Qconsp; +extern Lisp_Object Qintegerp, Qnumberp, Qnatnump, Qwholenump; +extern Lisp_Object Qsymbolp, Qlistp, Qconsp; extern Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp; extern Lisp_Object Qchar_or_string_p, Qmarkerp, Qvectorp; extern Lisp_Object Qinteger_or_marker_p, Qnumber_or_marker_p;