[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9fafeb2a66: Ensure that we are not aset-ing Lisp records in pures
From: |
Vibhav Pant |
Subject: |
master 9fafeb2a66: Ensure that we are not aset-ing Lisp records in purespace. |
Date: |
Tue, 20 Dec 2022 11:15:56 -0500 (EST) |
branch: master
commit 9fafeb2a66fe1cba8f3ad7662196e36ca0b1eca7
Author: Vibhav Pant <vibhavp@gmail.com>
Commit: Vibhav Pant <vibhavp@gmail.com>
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 c6b85e17bc..7ad06a9faa 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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 9fafeb2a66: Ensure that we are not aset-ing Lisp records in purespace.,
Vibhav Pant <=