Missing statement for the case in which a lexical environment is created right at the toplevel

This commit is contained in:
jgarcia 2007-08-04 13:54:05 +00:00
parent c651eb67a1
commit 4aef9500d0

View file

@ -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