From 9fafeb2a66fe1cba8f3ad7662196e36ca0b1eca7 Mon Sep 17 00:00:00 2001
From: Vibhav Pant <vibhavp@gmail.com>
Date: Tue, 20 Dec 2022 21:29:54 +0530
Subject: [PATCH] Ensure that we are not aset-ing Lisp records in purespace.

* src/data.c (Faset): Enforce that Lisp records passed to aset are
impure with CHECK_IMPURE.
---
 src/data.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/data.c b/src/data.c
index c6b85e17bc2..7ad06a9faa5 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2619,6 +2619,7 @@ bool-vector.  IDX starts at 0.  */)
     }
   else if (RECORDP (array))
     {
+      CHECK_IMPURE (array, XVECTOR (array));
       if (idxval < 0 || idxval >= PVSIZE (array))
 	args_out_of_range (array, idx);
       ASET (array, idxval, newelt);
-- 
2.39.2