static bool
test_equal(struct cl_test *t, cl_object x)
{
return ecl_equal(t->item_compared, KEY(t,x));
}
/* optimize speed 3, debug 3, space 0, safety 2 */
static cl_object L2interleave(cl_object V1, cl_object V2)
{
cl_object T0;
struct ecl_ihs_frame ihs;
const cl_object _ecl_debug_env = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
{
{
static const struct ecl_var_debug_info _ecl_descriptors[]={
{"COMMON-LISP-USER::LIST1",_ecl_object_loc}
,{"COMMON-LISP-USER::LIST2",_ecl_object_loc}};
const cl_index _ecl_debug_info_raw[]={
(cl_index)(ECL_NIL),(cl_index)(_ecl_descriptors),(cl_index)(&V1),(cl_index)(&V2)};
ecl_def_ct_vector(_ecl_debug_env,ecl_aet_index,_ecl_debug_info_raw,4,,);
ecl_ihs_push(cl_env_copy,&ihs,VV[1],_ecl_debug_env);
TTL:
{
cl_object V3; /* LET4 */
cl_object V4; /* LET5 */
cl_object V5; /* TEMP */
cl_object V6; /* A */
cl_object V7; /* B */
V3 = cl_copy_list(V1);
V4 = cl_copy_list(V2);
V5 = ECL_NIL;
V6 = V3;
V7 = V4;
{
static const struct ecl_var_debug_info _ecl_descriptors[]={
{"COMMON-LISP-USER::B",_ecl_object_loc}
,{"COMMON-LISP-USER::A",_ecl_object_loc}
,{"COMMON-LISP-USER::TEMP",_ecl_object_loc}
,{"COMMON-LISP-USER::LET5",_ecl_object_loc}
,{"COMMON-LISP-USER::LET4",_ecl_object_loc}};
const cl_index _ecl_debug_info_raw[]={
(cl_index)(_ecl_debug_env),(cl_index)(_ecl_descriptors),(cl_index)(&V7),(cl_index)(&V6),(cl_index)(&V5),(cl_index)(&V4),(cl_index)(&V3)};
ecl_def_ct_vector(_ecl_debug_env,ecl_aet_index,_ecl_debug_info_raw,7,,);
ihs.lex_env = _ecl_debug_env;
L7:;
if (!(ecl_equal(ECL_NIL,V6))) { goto L9; }
goto L8;
L9:;
{
cl_object V8;
V8 = V6;
{
static const struct ecl_var_debug_info _ecl_descriptors[]={
{"#:G5",_ecl_object_loc}};
const cl_index _ecl_debug_info_raw[]={
(cl_index)(_ecl_debug_env),(cl_index)(_ecl_descriptors),(cl_index)(&V8)};
ecl_def_ct_vector(_ecl_debug_env,ecl_aet_index,_ecl_debug_info_raw,3,,);
ihs.lex_env = _ecl_debug_env;
{
cl_object V9;
V9 = ecl_car(V8);
{
static const struct ecl_var_debug_info _ecl_descriptors[]={
{"#:G6",_ecl_object_loc}};
const cl_index _ecl_debug_info_raw[]={
(cl_index)(_ecl_debug_env),(cl_index)(_ecl_descriptors),(cl_index)(&V9)};
ecl_def_ct_vector(_ecl_debug_env,ecl_aet_index,_ecl_debug_info_raw,3,,);
ihs.lex_env = _ecl_debug_env;
V8 = ecl_cdr(V8);
V6 = V8;
T0 = V9;
}
ihs.lex_env = _ecl_debug_env;
}
}
ihs.lex_env = _ecl_debug_env;
}
V5 = CONS(T0,V5);
{
cl_object V8;
V8 = V7;
{
static const struct ecl_var_debug_info _ecl_descriptors[]={
{"#:G8",_ecl_object_loc}};
const cl_index _ecl_debug_info_raw[]={
(cl_index)(_ecl_debug_env),(cl_index)(_ecl_descriptors),(cl_index)(&V8)};
ecl_def_ct_vector(_ecl_debug_env,ecl_aet_index,_ecl_debug_info_raw,3,,);
ihs.lex_env = _ecl_debug_env;
{
cl_object V9;
V9 = ecl_car(V8);
{
static const struct ecl_var_debug_info _ecl_descriptors[]={
{"#:G9",_ecl_object_loc}};
const cl_index _ecl_debug_info_raw[]={
(cl_index)(_ecl_debug_env),(cl_index)(_ecl_descriptors),(cl_index)(&V9)};
ecl_def_ct_vector(_ecl_debug_env,ecl_aet_index,_ecl_debug_info_raw,3,,);
ihs.lex_env = _ecl_debug_env;
V8 = ecl_cdr(V8);
V7 = V8;
T0 = V9;
}
ihs.lex_env = _ecl_debug_env;
}
}
ihs.lex_env = _ecl_debug_env;
}
V5 = CONS(T0,V5);
goto L7;
L8:;
value0 = cl_reverse(V5);
ecl_ihs_pop(cl_env_copy);
return value0;
}
ihs.lex_env = _ecl_debug_env;
}
}
}
}