From: AndreaCorallo <akrl@sdf.org>
Date: Sat, 29 Feb 2020 08:36:06 +0000 (+0000)
Subject: * Keep comp-subr-list into pure space
X-Git-Tag: emacs-28.0.90~2727^2~800
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0066e30615f135d9eebd48b98dddfcb7cf84ed0;p=emacs.git

* Keep comp-subr-list into pure space

Sad pure space is not effective nowdays but anyway... should go there.
---

diff --git a/src/lread.c b/src/lread.c
index 005528782d0..8b6db92cca9 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -4405,7 +4405,7 @@ defsubr (union Aligned_Lisp_Subr *aname)
   XSETSUBR (tem, sname);
   set_symbol_function (sym, tem);
 #ifdef HAVE_NATIVE_COMP
-  Vcomp_subr_list = Fcons (tem, Vcomp_subr_list);
+  Vcomp_subr_list = Fpurecopy (Fcons (tem, Vcomp_subr_list));
 #endif
 }