mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 19:50:44 -07:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: line unwrap

Browse source
This commit is contained in:
Daniel Kochmanski 2017-10-09 22:45:38 +02:00
parent 21f670894a
commit b851e85701
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/compiler.d
View file

@ -1443,10 +1443,8 @@ asm_function(cl_env_ptr env, cl_object function, int flags) {
{
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));
(Null(c_env->variables) && Null(c_env->macros)) ? OP_QUOTE : OP_CLOSE,
ecl_make_lambda(env, name, body, function));
}
return FLAG_REG0;
}