diff options
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3883,7 +3883,7 @@ static val me_op(val form, val menv) expand(body, new_menv))); val rest_gensym = gensym(lit("rest-")); cons_bind (syms, body_trans, transform_op(body_ex, nil, rest_gensym)); - val ssyms = sort(syms, func_n2(lt), car_f); + val ssyms = nsort(syms, func_n2(lt), car_f); val nums = mapcar(car_f, ssyms); val max = if3(nums, maxl(car(nums), cdr(nums)), zero); val min = if3(nums, minl(car(nums), cdr(nums)), zero); @@ -6892,7 +6892,9 @@ void eval_init(void) reg_fun(intern(lit("plist-to-alist"), user_package), func_n1(plist_to_alist)); reg_fun(intern(lit("improper-plist-to-alist"), user_package), func_n2(improper_plist_to_alist)); reg_fun(intern(lit("merge"), user_package), func_n4o(merge_wrap, 2)); + reg_fun(intern(lit("nsort"), user_package), func_n3o(nsort, 1)); reg_fun(intern(lit("sort"), user_package), func_n3o(sort, 1)); + reg_fun(intern(lit("nshuffle"), user_package), func_n1(nshuffle)); reg_fun(intern(lit("shuffle"), user_package), func_n1(shuffle)); reg_fun(intern(lit("find"), user_package), func_n4o(find, 2)); reg_fun(intern(lit("rfind"), user_package), func_n4o(rfind, 2)); |