lisplib: split lisplib_try_load into namespaces.

* lisplib.c (lisplib_init): Change sys:try-load (only used by
place.tl) to sys:try-load-fun, and register it to
(lisplib_try_load): External function becomes static.
(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): New
functions.

* lisplib.h (lisplib_try_load): Declaration removed.
(lisplib_try_load): External function becomes static.
(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): Declared.

* eval.c (lookup_global_var, lookup_var, lookup_symac,
lookup_symac_lisp1, rt_defvarl, rt_defv, op_defsymacro,
rt_defsymacro, makunbound): Use lisplip_try_load_var.
(lookup_fun, lookup_mac, rt_defun, rt_defmacro, fmakunbound,
mmakunbound): Use lisplib_try_load_fun.
(expand_param_macro): Use lisplib_try_load_keyword, which is
a catch-all namespace for anything tied to keywords.

* struct.c (make_struct_type, find_struct_type): Use
lisplib_try_load_struct.
(lookup_sloat_load, lookup_static_slot_load,
lookup_static_slot_desc_load, slot_types, static_slot_types):
Use lisplib_try_load_slot.

* stdlib/place.tl (get-place-macro): Use try-load-fun,
rather than try-load.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisplib.h b/lisplib.h
index d04a351b..65aa2693 100644
--- a/lisplib.h
+++ b/lisplib.h
@@ -29,7 +29,12 @@
 extern val dl_table;
 extern val trace_loaded;
 void lisplib_init(void);
-val lisplib_try_load(val sym);
+val lisplib_try_load_fun(val sym);
+val lisplib_try_load_var(val sym);
+val lisplib_try_load_fun_var(val sym);
+val lisplib_try_load_slot(val sym);
+val lisplib_try_load_struct(val sym);
+val lisplib_try_load_keyword(val sym);
 void set_dlt_entries(val dlt, val *name, val fun);
 val dlt_register(val dlt,
                  val (*instantiate)(val),