changeset 85015:695c195058e7

(defsubr): Use XSETPVECTYPE.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 02 Oct 2007 21:06:16 +0000
parents ad5045db16f7
children c7d378d22b24
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }