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

In destructuring lambda lists, a destructuring form may appear in

Browse source 
the position of a variable, even after a &KEY form.
In LAMBDA-BLOCK, deduce the block name from the function name.
This commit is contained in:
jjgarcia 2003-04-28 18:23:16 +00:00
parent 04dcf81cc2
commit 395761a558
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/compiler.d
View file

@ -2325,7 +2325,8 @@ REST: if (stage >= AT_REST)
if (endp(CDR(v)) || !endp(CDDR(v)))
goto ILLEGAL_LAMBDA;
v = CADR(v);
assert_type_symbol(v);
if (context == @'function')
assert_type_symbol(v);
assert_type_symbol(key);
} else {
int intern_flag;
@ -2475,7 +2476,7 @@ make_lambda(cl_object name, cl_object lambda) {
}
if (!Null(name))
c_register_block(name);
c_register_block(si_function_block_name(name));
if ((current_pc() - label) == 1)
set_pc(label);