ECL_DLLEXPORT void init_fas_CODE(cl_object flag) { const cl_env_ptr cl_env_copy = ecl_process_env(); cl_object value0; cl_object *VVtemp; if (flag != OBJNULL){ Cblock = flag; #ifndef ECL_DYNAMIC_VV flag->cblock.data = VV; #endif flag->cblock.data_size = VM; flag->cblock.temp_data_size = VMtemp; flag->cblock.data_text = compiler_data_text; flag->cblock.data_text_size = compiler_data_text_size; flag->cblock.cfuns_size = compiler_cfuns_size; flag->cblock.cfuns = compiler_cfuns; flag->cblock.source = make_constant_base_string("/home/tucker/Repo/my-code/lisp/misc.lisp"); return;} #ifdef ECL_DYNAMIC_VV VV = Cblock->cblock.data; #endif Cblock->cblock.data_text = "@EcLtAg:init_fas_CODE@"; VVtemp = Cblock->cblock.temp_data; ECL_DEFINE_SETF_FUNCTIONS ecl_function_dispatch(cl_env_copy,VV[2])(10, VVtemp[0], ECL_NIL, ECL_NIL, VVtemp[1], ECL_NIL, ECL_NIL, VVtemp[2], ECL_NIL, ECL_NIL, ECL_NIL) /* DODEFPACKAGE */; ecl_cmp_defun(VV[3]); /* SEQ */ ecl_function_dispatch(cl_env_copy,VV[4])(3, VV[0], ECL_SYM("FUNCTION",396), VVtemp[3]) /* SET-DOCUMENTATION */; ecl_cmp_defun(VV[8]); /* INTERLEAVE */ }
static void setup_test(struct cl_test *t, cl_object item, cl_object test, cl_object test_not, cl_object key) { cl_env_ptr env = t->env = ecl_process_env(); t->item_compared = item; if (test != ECL_NIL) { if (test_not != ECL_NIL) FEerror("Both :TEST and :TEST-NOT are specified.", 0); t->test_function = test = si_coerce_to_function(test); if (test == ECL_SYM_FUN(ECL_SYM("EQ",333))) { t->test_c_function = test_eq; } else if (test == ECL_SYM_FUN(ECL_SYM("EQL",334))) { t->test_c_function = test_eql; } else if (test == ECL_SYM_FUN(ECL_SYM("EQUAL",335))) { t->test_c_function = test_equal; } else if (test == ECL_SYM_FUN(ECL_SYM("EQUALP",336))) { t->test_c_function = test_equalp; } else { t->test_c_function = test_compare; t->test_fn = ecl_function_dispatch(env, test); t->test_function = env->function; } } else if (test_not != ECL_NIL) { t->test_c_function = test_compare_not; test_not = si_coerce_to_function(test_not); t->test_fn = ecl_function_dispatch(env, test_not); t->test_function = env->function; } else { t->test_c_function = test_eql; } if (key != ECL_NIL) { key = si_coerce_to_function(key); t->key_fn = ecl_function_dispatch(env, key); t->key_function = env->function; t->key_c_function = key_function; } else { t->key_c_function = key_identity; } }