From 5a6891e297787d42e24d0ce013baf907c1889d73 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 2 Oct 2007 21:06:16 +0000
Subject: [PATCH] (defsubr): Use XSETPVECTYPE.

---
 src/lread.c | 1 +
 1 file changed, 1 insertion(+)

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);
 }
 
-- 
2.39.5