# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1192549783 0
# Node ID ad9922c079e4e4c98eeb71676d0db65882d6e46c
# Parent  d0d527210b0c1eb5b784232e0fd58724d41afe13
(Fpurecopy): Set the pvec tag on pseudo vectors.

diff -r d0d527210b0c -r ad9922c079e4 src/ChangeLog
--- a/src/ChangeLog	Tue Oct 16 15:42:58 2007 +0000
+++ b/src/ChangeLog	Tue Oct 16 15:49:43 2007 +0000
@@ -1,5 +1,7 @@
 2007-10-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* alloc.c (Fpurecopy): Set the pvec tag on pseudo vectors.
+
 	* lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
 	(XMISCANY): New macro.
 	(XMISCTYPE): Use it.
diff -r d0d527210b0c -r ad9922c079e4 src/alloc.c
--- a/src/alloc.c	Tue Oct 16 15:42:58 2007 +0000
+++ b/src/alloc.c	Tue Oct 16 15:49:43 2007 +0000
@@ -4966,7 +4966,10 @@
       for (i = 0; i < size; i++)
 	vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
       if (COMPILEDP (obj))
-	XSETCOMPILED (obj, vec);
+	{
+	  XSETPVECTYPE (vec, PVEC_COMPILED);
+	  XSETCOMPILED (obj, vec);
+	}
       else
 	XSETVECTOR (obj, vec);
       return obj;