diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-04-24 08:11:54 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-04-24 08:11:54 +0000 |
| commit | 4746118aca2d5cbdd054b4af4814d56550dfbc79 (patch) | |
| tree | 370e07c6950794f936bc8d434cb0560d883e4a0b /src/lisp.h | |
| parent | d4327fecc103493bc8275c3580b05c06c9fcc019 (diff) | |
| download | emacs-4746118aca2d5cbdd054b4af4814d56550dfbc79.tar.gz | |
*** empty log message ***
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/lisp.h b/src/lisp.h index 1e5d4bf9365..c7dd07058eb 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1,11 +1,11 @@ /* Fundamental definitions for GNU Emacs Lisp interpreter. - Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 1, or (at your option) +the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, @@ -506,15 +506,19 @@ typedef unsigned char UCHAR; /* Data type checking */ -#ifdef NULL -#undef NULL -#endif #define NILP(x) (XFASTINT (x) == XFASTINT (Qnil)) +#ifdef LISP_FLOAT_TYPE +#define NUMBERP(x) (XTYPE (x) == Lisp_Int || XTYPE (x) == Lisp_Float) +#else +#define NUMBERP(x) (XTYPE (x) == Lisp_Int) +#endif + /* #define LISTP(x) (XTYPE ((x)) == Lisp_Cons)*/ #define CONSP(x) (XTYPE ((x)) == Lisp_Cons) #define EQ(x, y) (XFASTINT (x) == XFASTINT (y)) + #define CHECK_LIST(x, i) \ { if ((XTYPE ((x)) != Lisp_Cons) && !NILP (x)) x = wrong_type_argument (Qlistp, (x)); } |