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

Slightly leaner code for searching environment

Browse source
This commit is contained in:
jjgarcia 2008-06-19 15:03:28 +00:00
parent 83c35e01c2
commit 271d33ee3f
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/c/interpreter.d
View file

@ -283,10 +283,13 @@ internal_lex_env_error()
}
static cl_object
ecl_lex_env_get_record(register cl_object env, register int s) {
for (; s-- > 0; env = CDR(env));
if (Null(env)) internal_lex_env_error();
return CAR(env);
ecl_lex_env_get_record(register cl_object env, register int s)
{
do {
if (Null(env)) internal_lex_env_error();
if (s-- == 0) return ECL_CONS_CAR(env);
env = ECL_CONS_CDR(env);
} while(1);
}
#define ecl_lex_env_get_var(env,x) ECL_CONS_CDR(ecl_lex_env_get_record(env,x))