From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 2 Oct 2007 21:06:16 +0000 (+0000)
Subject: (defsubr): Use XSETPVECTYPE.
X-Git-Tag: emacs-pretest-23.0.90~10545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a6891e297787d42e24d0ce013baf907c1889d73;p=emacs.git

(defsubr): Use XSETPVECTYPE.
---

diff --git a/src/lread.c b/src/lread.c
index 189fcc0977f..ae02b454333 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3672,6 +3672,7 @@ defsubr (sname)
 {
   Lisp_Object sym;
   sym = intern (sname->symbol_name);
+  XSETPVECTYPE (sname, PVEC_SUBR);
   XSETSUBR (XSYMBOL (sym)->function, sname);
 }