mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 15:22:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Since dpp now generates code that uses 'the_env', it has to be defined in functions that use @(return)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-11 23:47:40 +02:00
parent ed584a62c5
commit 5a41a55a2d
12 changed files with 41 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/disassembler.d
View file

@ -629,6 +629,7 @@ si_bc_disassemble(cl_object v)
cl_object
si_bc_split(cl_object b)
{
const cl_env_ptr the_env = ecl_process_env();
cl_object vector;
cl_object data;
cl_object lex = Cnil;
@ -649,6 +650,7 @@ si_bc_split(cl_object b)
cl_object
si_bc_file(cl_object b)
{
cl_env_ptr the_env = ecl_process_env();
if (type_of(b) == t_bclosure) {
b = b->bclosure.code;
}