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

The previous change to function-lambda-expression is incompatible with the specification

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-17 23:27:01 +02:00
parent b5fc311d62
commit 2366db3d38
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/cfun.d
View file

@ -123,7 +123,7 @@ cl_object
cl_function_lambda_expression(cl_object fun)
{
cl_env_ptr the_env = ecl_process_env();
cl_object output, name = Cnil, lex = Cnil, definition = Cnil;
cl_object output, name = Cnil, lex = Cnil;
switch(type_of(fun)) {
case t_bclosure:
@ -132,9 +132,7 @@ cl_function_lambda_expression(cl_object fun)
case t_bytecodes:
name = fun->bytecodes.name;
output = fun->bytecodes.definition;
if (!CONSP(output))
{ definition = output; output = Cnil; }
else if (name == Cnil)
if (name == Cnil)
output = cl_cons(@'lambda', output);
else if (name != @'si::bytecodes')
output = @list*(3, @'ext::lambda-block', name, output);
@ -162,7 +160,7 @@ cl_function_lambda_expression(cl_object fun)
default:
FEinvalid_function(fun);
}
@(return output lex name definition)
@(return output lex name)
}
cl_object