(XSETPSEUDOVECTOR): Don't set the tag anymore.

This was made redundant by the previous introduction of XSETPVECTYPE.

src/ChangeLog

+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>
 

src/lisp.h

@@ -561,7 +561,9 @@ extern size_t pure_size;
 
 #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))