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

Special variable declarations are no longer ignored in neither LABELS nor FLET forms. Only affected the interpreter.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-12-06 13:04:27 +01:00
parent 4ddb8b02f1
commit 47cff9f6ff
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/compiler.d
View file

@ -1187,9 +1187,6 @@ c_labels_flet(int op, cl_object args, int flags) {
return c_locally(args, flags);
}
/* Remove declarations */
args = c_process_declarations(args);
/* If compiling a LABELS form, add the function names to the lexical
environment before compiling the functions */
if (op == OP_FLET)
@ -1219,7 +1216,7 @@ c_labels_flet(int op, cl_object args, int flags) {
/* Compile the body of the form with the local functions in the lexical
environment. */
flags = compile_body(args, flags);
flags = c_locally(args, flags);
/* Restore and return */
c_undo_bindings(old_vars);