store lisp structures in SCM objects

[bpt/emacs.git] / src / lread.c

diff --git a/src/lread.c b/src/lread.c
index 3142d5a..704f3cf 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -4085,6 +4085,7 @@ defsubr (struct Lisp_Subr *sname)
 {
   Lisp_Object sym, tem;
   sym = intern_c_string (sname->symbol_name);
+  SCM_NEWSMOB (sname->header.self, lisp_vectorlike_tag, sname);
   XSETPVECTYPE (sname, PVEC_SUBR);
   XSETSUBR (tem, sname);
   set_symbol_function (sym, tem);