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

This was made redundant by the previous introduction of XSETPVECTYPE.

diff --git a/src/ChangeLog b/src/ChangeLog
index 541432e70bf438f3f756258de8a622fd50cc7b07..9e1ef4b06f8cdabc475845ebacaf09fd706327cb 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,6 +1,11 @@
+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>
 

diff --git a/src/lisp.h b/src/lisp.h
index bbad0b2822619d35e4ff447ecdc148fd405fdbd7..43daded691a16abe0de2db510aa30533e89cd998 100644 (file)
--- a/src/lisp.h
+++ b/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))