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

In the interpreter, avoid creating a closure when the lexical environment is empty.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-11 22:04:43 +01:00
parent 56ba22d877
commit a38f16f1fa
1 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/c/compiler.d
View file

@ -1442,17 +1442,27 @@ asm_function(cl_env_ptr env, cl_object function, int flags) {
}
if (CONSP(function)) {
cl_object kind = ECL_CONS_CAR(function);
cl_object form = ECL_CONS_CDR(function);
cl_object body = ECL_CONS_CDR(function);
cl_object name;
if (kind == @'lambda') {
asm_op2c(env, OP_CLOSE, ecl_make_lambda(env, Cnil, form));
return FLAG_REG0;
name = Cnil;
} else if (kind == @'ext::lambda-block') {
cl_object name = ECL_CONS_CAR(form);
cl_object body = ECL_CONS_CDR(form);
asm_op2c(env, OP_CLOSE, ecl_make_lambda(env, name, body));
return FLAG_REG0;
}
name = ECL_CONS_CAR(body);
body = ECL_CONS_CDR(body);
} else {
goto ERROR;
}
{
const cl_compiler_ptr c_env = env->c_env;
asm_op2c(env,
(Null(c_env->variables) &&
Null(c_env->macros))?
OP_QUOTE : OP_CLOSE,
ecl_make_lambda(env, name, body));
}
return FLAG_REG0;
}
ERROR:
FEprogram_error_noreturn("FUNCTION: Not a valid argument ~S.", 1, function);
return FLAG_REG0;
}