From 9a2bc9a4666b0a8789eccd231dd97cf1abc74cae Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 18 Feb 2022 21:58:48 -0800 Subject: lisplib: rename lisplib funtions to autoload prefix. * lisplib.c (lisplib_init): Follow rename, and rename try-load-fun to autoload-try-fun. (lisplib_try_load_fun, lisplib_try_load_var, lisplib_try_load_fun_var, lisplib_try_load_slot, lisplib_try_load_struct, lisplib_try_load_keyword): Renamed from `lisplib_try_load_@kind` to `autoload_try_@kind`. * lisplib.h (lisplib_try_load_fun, lisplib_try_load_var, lisplib_try_load_fun_var, lisplib_try_load_slot, lisplib_try_load_struct, lisplib_try_load_keyword): Declarations renamed. * eval.c (lookup_global_var, lookup_sym_lisp1, lookup_fun, lookup_mac, lookup_symac, lookup_symac_lisp1, special_var_p, expand_param_macro, rt_defvar, rt_defv, op_defsymacro, rt_defsymacro, rt_defun, rt_defmacro, makunbound, fmakunbound, mmakunbound): Follow rename. * struct.c (make_struct_type, find_struct_type, lookup_slot_load, lookup_static_slot_load, lookup_static_slot_desc_load, slot_types, static_slot_types): Follow rename. * stdlib/place.tl (get-place-macro): Follow rename of try-load-fun to autoload-try-fun. --- lisplib.c | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'lisplib.c') diff --git a/lisplib.c b/lisplib.c index 32f4db64..2dbf4492 100644 --- a/lisplib.c +++ b/lisplib.c @@ -1094,7 +1094,7 @@ void lisplib_init(void) autoload_reg(pic_instantiate, pic_set_entries); autoload_reg(constfun_instantiate, constfun_set_entries); - reg_fun(intern(lit("try-load-fun"), system_package), func_n1(lisplib_try_load_fun)); + reg_fun(intern(lit("autoload-try-fun"), system_package), func_n1(autoload_try_fun)); } static val lisplib_try_load(al_ns_t ns, val sym) @@ -1115,34 +1115,34 @@ static val lisplib_try_load(al_ns_t ns, val sym) return nil; } -val lisplib_try_load_fun(val sym) +val autoload_try_fun(val sym) { return lisplib_try_load(al_fun, sym); } -val lisplib_try_load_var(val sym) +val autoload_try_var(val sym) { return lisplib_try_load(al_var, sym); } -val lisplib_try_load_fun_var(val sym) +val autoload_try_fun_var(val sym) { uses_or2; - return or2(lisplib_try_load_fun(sym), - lisplib_try_load_var(sym)); + return or2(autoload_try_fun(sym), + autoload_try_var(sym)); } -val lisplib_try_load_slot(val sym) +val autoload_try_slot(val sym) { return lisplib_try_load(al_slot, sym); } -val lisplib_try_load_struct(val sym) +val autoload_try_struct(val sym) { return lisplib_try_load(al_struct, sym); } -val lisplib_try_load_keyword(val sym) +val autoload_try_keyword(val sym) { return lisplib_try_load(al_key, sym); } -- cgit v1.2.3