diff src/lread.c @ 85015:695c195058e7

(defsubr): Use XSETPVECTYPE.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 02 Oct 2007 21:06:16 +0000
parents 1d35aa875508
children b98ea218eb70 bdb3fe0ba9fa
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);
 }