# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1191359176 0
# Node ID 695c195058e76ab518eb0b89216bd4a02277dfeb
# Parent  ad5045db16f78278de0a07b123f8a3ba3b96af1e
(defsubr): Use XSETPVECTYPE.

diff -r ad5045db16f7 -r 695c195058e7 src/lread.c
--- a/src/lread.c	Tue Oct 02 21:05:39 2007 +0000
+++ b/src/lread.c	Tue Oct 02 21:06:16 2007 +0000
@@ -3672,6 +3672,7 @@
 {
   Lisp_Object sym;
   sym = intern (sname->symbol_name);
+  XSETPVECTYPE (sname, PVEC_SUBR);
   XSETSUBR (XSYMBOL (sym)->function, sname);
 }