+2007-10-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * lisp.h (XSETPSEUDOVECTOR): Don't set the tag anymore.
+ This was made redundant by the previous introduction of XSETPVECTYPE.
+
2007-10-09 Richard Stallman <rms@gnu.org>
- * image.c (free_bitmap_record): Renamed from Free_Bitmap_Record.
+ * image.c (free_bitmap_record): Rename from Free_Bitmap_Record.
2007-09-29 Richard Stallman <rms@gnu.org>
#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))