Functions for error reporting out of macros.

* eval.c (eval_init): Register sys:ctx-form and sys:ctx-name
intrinsics.

* lisplib.c (error_set_entries, error_instantiate): New static
functions.
(lisplib_init): Register autoloading of error.tl via
new functions.

* share/txr/stdlib/error.tl: New file.

* struct.c (make_struct_type): Purge deferred warnings.

* unwind.c (uw_late_init): Register purge-deferred-warning
intrinsic.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index c203186d..0a9ad60e 100644
--- a/eval.c
+++ b/eval.c
@@ -5795,6 +5795,8 @@ void eval_init(void)
   reg_fun(intern(lit("func-set-env"), user_package), func_n2(func_set_env));
   reg_fun(intern(lit("functionp"), user_package), func_n1(functionp));
   reg_fun(intern(lit("interp-fun-p"), user_package), func_n1(interp_fun_p));
+  reg_fun(intern(lit("ctx-form"), system_package), func_n1(ctx_form));
+  reg_fun(intern(lit("ctx-name"), system_package), func_n1(ctx_name));
 
   reg_fun(intern(lit("range"), user_package), func_n3o(range, 0));
   reg_fun(intern(lit("range*"), user_package), func_n3o(range_star, 0));