Mercurial > emacs

diff src/lisp.h @ 38474:86bc182c8651

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp.h (XVECTOR): Verify correct object type before returning a pointer.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 17 Jul 2001 16:44:16 +0000
parents a35885785077
children e07b62d39bec
line wrap: on
line diff
--- a/src/lisp.h	Tue Jul 17 16:29:39 2001 +0000
+++ b/src/lisp.h	Tue Jul 17 16:44:16 2001 +0000
@@ -471,7 +471,7 @@
 /* Extract a value or address from a Lisp_Object.  */
 
 #define XCONS(a) (eassert (GC_CONSP(a)),(struct Lisp_Cons *) XPNTR(a))
-#define XVECTOR(a) ((struct Lisp_Vector *) XPNTR(a))
+#define XVECTOR(a) (eassert (GC_VECTORLIKEP(a)),(struct Lisp_Vector *) XPNTR(a))
 #define XSTRING(a) (eassert (GC_STRINGP(a)),(struct Lisp_String *) XPNTR(a))
 #define XSYMBOL(a) (eassert (GC_SYMBOLP(a)),(struct Lisp_Symbol *) XPNTR(a))
 #define XFLOAT(a) (eassert (GC_FLOATP(a)),(struct Lisp_Float *) XPNTR(a))