Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
38473:f5a9d9707da5 38474:86bc182c8651
469 #endif /* NO_UNION_TYPE */ 469 #endif /* NO_UNION_TYPE */
470 470
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))
478 478
479 /* Misc types. */ 479 /* Misc types. */