From 6f78b69db94e7f808d8295bb67664ce73b4a20a1 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 14 Jul 2011 17:39:29 +0200
Subject: [PATCH] When evaluating :COMPILE-TOPLEVEL forms in the bytecodes
 compiler, reset the list of constants (some of them might have been
 transformed into load-time ones)

---
 src/c/compiler.d | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/c/compiler.d b/src/c/compiler.d
index 147cc84c9..e78c8254b 100644
--- a/src/c/compiler.d
+++ b/src/c/compiler.d
@@ -2333,6 +2333,11 @@ eval_nontrivial_form(cl_env_ptr env, cl_object form) {
         frame.env = env;
         env->nvalues = 0;
         env->values[0] = Cnil;
+        new_c_env.constants = Cnil;
+        new_c_env.constants_size = 0;
+        new_c_env.load_time_forms = Cnil;
+        new_c_env.env_depth = 0;
+        new_c_env.env_size = 0;
         env->c_env = &new_c_env;
         handle = asm_begin(env);
         compile_form(env, form, FLAG_VALUES);