Need to undo this.

SebKrantz · SebKrantz · commit f61948e8619d · 2023-04-03T18:51:34.000+02:00
diff --git a/src/programming.c b/src/programming.c
@@ -404,7 +404,8 @@ SEXP setcopyv(SEXP x, SEXP val, SEXP rep, SEXP Rinvert, SEXP Rset, SEXP Rind1) {
   }
   case VECSXP:
   {
-    SEXP *restrict px = (set == 0) ? SEXPPTR(ans) : ALTREP(x) ? (SEXP *)ALTVEC_DATAPTR(x) : SEXPPTR(x);
+    if(set && ALTREP(x)) error("cannot modify ALTREP list by reference");
+    SEXP *restrict px = set ? SEXPPTR(x) : SEXPPTR(ans);
     if(lv == 1 && ind1 == 0) error("Cannot compare lists to a value");
     // if(tr != VECSXP) error("If X is a list and xlist = TRUE, R also needs to be a list");
     const int *restrict pv = INTEGER(val); // ALTREP(val) ? (const int *)ALTVEC_DATAPTR(val) :

Original file line number	Diff line number	Diff line change
`@@ -404,7 +404,8 @@ SEXP setcopyv(SEXP x, SEXP val, SEXP rep, SEXP Rinvert, SEXP Rset, SEXP Rind1) {`
`404`	`404`	`}`
`405`	`405`	`case VECSXP:`
`406`	`406`	`{`
`407`		`- SEXP restrict px = (set == 0) ? SEXPPTR(ans) : ALTREP(x) ? (SEXP )ALTVEC_DATAPTR(x) : SEXPPTR(x);`
	`407`	`+ if(set && ALTREP(x)) error("cannot modify ALTREP list by reference");`
	`408`	`+ SEXP *restrict px = set ? SEXPPTR(x) : SEXPPTR(ans);`
`408`	`409`	`if(lv == 1 && ind1 == 0) error("Cannot compare lists to a value");`
`409`	`410`	`// if(tr != VECSXP) error("If X is a list and xlist = TRUE, R also needs to be a list");`
`410`	`411`	`const int restrict pv = INTEGER(val); // ALTREP(val) ? (const int )ALTVEC_DATAPTR(val) :`