diff options
| author | Ken Raeburn | 2001-07-17 16:44:16 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2001-07-17 16:44:16 +0000 |
| commit | 232e274c6ef3a0d74be18cb1cacfa0073088fb07 (patch) | |
| tree | 84c588c6c0138ffe5fddbc5ae641b31555661770 /src/lisp.h | |
| parent | 928a85c1ba48540e0b79c20f708474cbbc7da20d (diff) | |
| download | emacs-232e274c6ef3a0d74be18cb1cacfa0073088fb07.tar.gz emacs-232e274c6ef3a0d74be18cb1cacfa0073088fb07.zip | |
* lisp.h (XVECTOR): Verify correct object type before returning a pointer.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index f4fd603acb7..5cda92c93bc 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -471,7 +471,7 @@ extern Lisp_Object make_number (); | |||
| 471 | /* Extract a value or address from a Lisp_Object. */ | 471 | /* Extract a value or address from a Lisp_Object. */ |
| 472 | 472 | ||
| 473 | #define XCONS(a) (eassert (GC_CONSP(a)),(struct Lisp_Cons *) XPNTR(a)) | 473 | #define XCONS(a) (eassert (GC_CONSP(a)),(struct Lisp_Cons *) XPNTR(a)) |
| 474 | #define XVECTOR(a) ((struct Lisp_Vector *) XPNTR(a)) | 474 | #define XVECTOR(a) (eassert (GC_VECTORLIKEP(a)),(struct Lisp_Vector *) XPNTR(a)) |
| 475 | #define XSTRING(a) (eassert (GC_STRINGP(a)),(struct Lisp_String *) XPNTR(a)) | 475 | #define XSTRING(a) (eassert (GC_STRINGP(a)),(struct Lisp_String *) XPNTR(a)) |
| 476 | #define XSYMBOL(a) (eassert (GC_SYMBOLP(a)),(struct Lisp_Symbol *) XPNTR(a)) | 476 | #define XSYMBOL(a) (eassert (GC_SYMBOLP(a)),(struct Lisp_Symbol *) XPNTR(a)) |
| 477 | #define XFLOAT(a) (eassert (GC_FLOATP(a)),(struct Lisp_Float *) XPNTR(a)) | 477 | #define XFLOAT(a) (eassert (GC_FLOATP(a)),(struct Lisp_Float *) XPNTR(a)) |