[Emacs-diffs] Changes to emacs/src/lisp.h,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/10/09 04:28:01

Index: lisp.h
===================================================================
RCS file: /sources/emacs/emacs/src/lisp.h,v
retrieving revision 1.592
retrieving revision 1.593
diff -u -b -r1.592 -r1.593
--- lisp.h      2 Oct 2007 21:55:27 -0000       1.592
+++ lisp.h      9 Oct 2007 04:28:00 -0000       1.593
@@ -561,7 +561,9 @@
 
 #define XSETPVECTYPE(v,code) ((v)->size |= PSEUDOVECTOR_FLAG | (code))
 #define XSETPSEUDOVECTOR(a, b, code) \
-  (XSETVECTOR (a, b), XSETPVECTYPE (XVECTOR (a), code))
+  (XSETVECTOR (a, b),                                                  \
+   eassert ((XVECTOR (a)->size & (PSEUDOVECTOR_FLAG | PVEC_TYPE_MASK)) \
+           == (PSEUDOVECTOR_FLAG | (code))))
 #define XSETWINDOW_CONFIGURATION(a, b) \
   (XSETPSEUDOVECTOR (a, b, PVEC_WINDOW_CONFIGURATION))
 #define XSETPROCESS(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_PROCESS))