qenv.error: cannot add bindings to a locked environment when evaluating qenv code:

### What happened?

When creating an S4 class inside `eval_code` you get an error that you `cannot add bindings to a locked environment`

```r
library(teal.data)
library(teal.code)
code <- c(
"setClass('aclass', slots = c(a = 'numeric', x = 'numeric', y = 'numeric')) # @linksto a x",
"x <- new('aclass', a = 1:3, x = 1:3, y = 1:3)",
"a <- new('aclass', a = 1:3, x = 1:3, y = 1:3)",
"a@x <- a@y",
"a@x <- a@x + 2",
"a@x <- x@a"
)
tdata <- eval_code(teal_data(), code)
tdata

```

```r

```

Comience en el punto de entrada eval_code() y ejecute el ejemplo reproducible del issue, incluida la llamada a setClass() y las asignaciones S4 posteriores. Rastree cómo se crea o bloquea el entorno de evaluación; la tarea está completa cuando el ejemplo se evalúa sin el qenv.error sobre la adición de bindings a un entorno bloqueado.

Escrito por el modelo de indexación a partir del texto del issue.