cl_object cl_make_list(cl_narg narg, ...) { #line 414 // ------------------------------2 #line 414 const cl_env_ptr the_env = ecl_process_env(); #line 414 static cl_object KEYS[1] = {(cl_object)(cl_symbols+1251)}; cl_object initial_element; #line 414 cl_object x; #line 414 cl_object KEY_VARS[2]; #line 414 ecl_va_list ARGS; ecl_va_start(ARGS, narg, narg, 0); cl_object size = ecl_va_arg(ARGS); #line 414 // ------------------------------3 cl_fixnum i; #line 417 // ------------------------------4 #line 417 #line 417 if (ecl_unlikely(narg < 1)) FEwrong_num_arguments(ecl_make_fixnum(529)); #line 417 cl_parse_key(ARGS, 1, KEYS, KEY_VARS, NULL, 0); #line 417 if (KEY_VARS[1]==ECL_NIL) { #line 417 initial_element = ECL_NIL; } else { #line 417 initial_element = KEY_VARS[0]; } #line 417 x = ECL_NIL; #line 417 // ------------------------------5 /* INV: ecl_to_size() signals a type-error if SIZE is not a integer >=0 */ i = ecl_to_size(size); while (i-- > 0) x = CONS(initial_element, x); { #line 421 #line 421 cl_object __value0 = x; #line 421 the_env->nvalues = 1; #line 421 return __value0; #line 421 } }
cl_object mp_make_rwlock(cl_narg narg, ...) { #line 88 // ------------------------------2 #line 88 const cl_env_ptr the_env = ecl_process_env(); #line 88 static cl_object KEYS[1] = {(cl_object)(cl_symbols+1273)}; cl_object name; #line 88 cl_object KEY_VARS[2]; #line 88 ecl_va_list ARGS; ecl_va_start(ARGS, narg, narg, 0); #line 88 // ------------------------------3 #line 90 // ------------------------------4 #line 90 #line 90 if (ecl_unlikely(narg < 0)) FEwrong_num_arguments(ecl_make_fixnum(1434)); #line 90 cl_parse_key(ARGS, 1, KEYS, KEY_VARS, NULL, 0); #line 90 if (KEY_VARS[1]==ECL_NIL) { #line 90 name = ECL_NIL; } else { #line 90 name = KEY_VARS[0]; } #line 90 // ------------------------------5 { #line 90 #line 90 cl_object __value0 = ecl_make_rwlock(name); #line 90 the_env->nvalues = 1; #line 90 return __value0; #line 90 } }
cl_object cl_tree_equal(cl_narg narg, ...) { #line 259 // ------------------------------2 #line 259 const cl_env_ptr the_env = ecl_process_env(); #line 259 static cl_object KEYS[2] = {(cl_object)(cl_symbols+1316), (cl_object)(cl_symbols+1317)}; cl_object test; cl_object test_not; #line 259 cl_object KEY_VARS[4]; #line 259 ecl_va_list ARGS; ecl_va_start(ARGS, narg, narg, 0); cl_object x = ecl_va_arg(ARGS); cl_object y = ecl_va_arg(ARGS); #line 259 // ------------------------------3 struct cl_test t; cl_object output; #line 263 // ------------------------------4 #line 263 #line 263 if (ecl_unlikely(narg < 2)) FEwrong_num_arguments(ecl_make_fixnum(863)); #line 263 cl_parse_key(ARGS, 2, KEYS, KEY_VARS, NULL, 0); #line 263 if (KEY_VARS[2]==ECL_NIL) { #line 263 test = ECL_NIL; } else { #line 263 test = KEY_VARS[0]; } #line 263 if (KEY_VARS[3]==ECL_NIL) { #line 263 test_not = ECL_NIL; } else { #line 263 test_not = KEY_VARS[1]; } #line 263 // ------------------------------5 setup_test(&t, ECL_NIL, test, test_not, ECL_NIL); output = tree_equal(&t, x, y)? ECL_T : ECL_NIL; close_test(&t); { #line 266 #line 266 cl_object __value0 = output; #line 266 the_env->nvalues = 1; #line 266 return __value0; #line 266 } }
/* optimize speed 3, debug 3, space 0, safety 2 */ static cl_object L1seq(cl_narg narg, ...) { 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); { cl_object V1; cl_object V2; cl_object V3; ecl_va_list args; ecl_va_start(args,narg,narg,0); { ecl_ihs_push(cl_env_copy,&ihs,VV[0],_ecl_debug_env); { cl_object keyvars[6]; cl_parse_key(args,3,L1seqkeys,keyvars,NULL,FALSE); ecl_va_end(args); if (Null(keyvars[3])) { V1 = ecl_make_fixnum(0); } else { V1 = keyvars[0]; } if (Null(keyvars[4])) { V2 = ecl_make_fixnum(10); } else { V2 = keyvars[1]; } if (Null(keyvars[5])) { V3 = ecl_make_fixnum(1); } else { V3 = keyvars[2]; } } { cl_object V4; /* I */ cl_object V5; cl_object V6; { T0 = cl_realp(V1); if (ecl_unlikely(!((T0)!=ECL_NIL))) FEwrong_type_argument(ECL_SYM("REAL",703),V1); V4 = V1; } { T0 = cl_realp(V2); if (ecl_unlikely(!((T0)!=ECL_NIL))) FEwrong_type_argument(ECL_SYM("REAL",703),V2); V5 = V2; } { T0 = cl_realp(V3); if (ecl_unlikely(!((T0)!=ECL_NIL))) FEwrong_type_argument(ECL_SYM("REAL",703),V3); V6 = V3; } { static const struct ecl_var_debug_info _ecl_descriptors[]={ {"#:LOOP-STEP-BY1",_ecl_object_loc} ,{"#:LOOP-LIMIT0",_ecl_object_loc} ,{"COMMON-LISP-USER::I",_ecl_object_loc}}; const cl_index _ecl_debug_info_raw[]={ (cl_index)(_ecl_debug_env),(cl_index)(_ecl_descriptors),(cl_index)(&V6),(cl_index)(&V5),(cl_index)(&V4)}; ecl_def_ct_vector(_ecl_debug_env,ecl_aet_index,_ecl_debug_info_raw,5,,); ihs.lex_env = _ecl_debug_env; { cl_object V7; cl_object V8; V7 = ecl_list1(ECL_NIL); V8 = V7; { static const struct ecl_var_debug_info _ecl_descriptors[]={ {"#:LOOP-LIST-TAIL3",_ecl_object_loc} ,{"#:LOOP-LIST-HEAD2",_ecl_object_loc}}; const cl_index _ecl_debug_info_raw[]={ (cl_index)(_ecl_debug_env),(cl_index)(_ecl_descriptors),(cl_index)(&V8),(cl_index)(&V7)}; ecl_def_ct_vector(_ecl_debug_env,ecl_aet_index,_ecl_debug_info_raw,4,,); ihs.lex_env = _ecl_debug_env; L12:; if (!(ecl_number_compare(V4,V5)>0)) { goto L14; } goto L13; L14:; T0 = V8; V8 = ecl_list1(V4); cl_rplacd(T0, V8); V4 = ecl_plus(V4,V6); goto L12; L13:; value0 = ecl_cdr(V7); cl_env_copy->nvalues = 1; ecl_ihs_pop(cl_env_copy); return value0; } ihs.lex_env = _ecl_debug_env; } } ihs.lex_env = _ecl_debug_env; } } } }