From 4aef9500d0b90e34d8a211edd2786dffe0015f64 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sat, 4 Aug 2007 13:54:05 +0000
Subject: [PATCH] Missing statement for the case in which a lexical environment
 is created right at the toplevel

---
 src/cmp/cmptop.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp
index fbac05aef..5bfc07733 100644
--- a/src/cmp/cmptop.lsp
+++ b/src/cmp/cmptop.lsp
@@ -123,7 +123,8 @@
     (wt-nl1 "extern \"C\"")
     (wt-nl1 "#endif")
     (wt-nl1 "void " name "(cl_object flag)")
-    (wt-nl1 "{ VT" *reservation-cmacro* " CLSR" *reservation-cmacro*)
+    (wt-nl1 "{ VT" *reservation-cmacro* " VLEX" *reservation-cmacro*
+            " CLSR" *reservation-cmacro*)
     (wt-nl "cl_object value0;")
     (wt-nl "cl_object *VVtemp;")
     (when shared-data