feature/native-comp d0066e3 04/11: * Keep comp-subr-list into pure space

[Andrea Corallo]

branch: feature/native-comp
commit d0066e30615f135d9eebd48b98dddfcb7cf84ed0
Author: AndreaCorallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * Keep comp-subr-list into pure space
    
    Sad pure space is not effective nowdays but anyway... should go there.
---
 src/lread.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lread.c b/src/lread.c
index 0055287..8b6db92 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
 }