Deferred warnings.

Warnings about undefined functions and variables are now
deferred during loading, so forward references do not generate
nuisance diagnostics.

* eval.c (load_recursive_s): New symbol variable.
(eval_defr_warn): New static function.
(op_defvarl, op_defun): Purge any deferred warning about the
given function or variable not being defined.
(load): Rebind the sys:*load-recursive* special var to true
around the load. After the load, dump deferred warnings
if the prior binding of sys:*load-recursive* is false.
Discard deferred warnings in the case of termination by
a nonlocal control transfer.
(do_expand): Treat unbound vars and functions as deferrable
warnings, specially tagged for individual purging frkm
the deferred list.
(eval_init): Intern sys:*load-recursive* and initialize
load_recursive_s variable.

* eval.h (load_recursive_s): Declared.

* parse.c (repl_warning): Accept variable arguments.
Check whether we are loading and if so, defer deferrable
(repl): Adjustment for altered signature of repl_warning.
warnings.

* txr.c (txr_main): dump deferred warnings after
evaluating Lisp stream.

* unwind.c (deferred_warnings): New static variable.
(uw_throw): When a deferrable warning is caught,
suppress the usual message and add it to the
deferred_warnings list.
(uw_defer_warning, uw_dump_deferred_warnings,
uw_dump_deferred_warnings, uw_purge_deferred_warnings): New
functions.
(uw_late_init): gc-protect deferred_warnings.

* unwind.h (uw_defer_warning, uw_dump_deferred_warnings,
uw_dump_deferred_warnings, uw_purge_deferred_warnings): New
functions declared.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.h b/eval.h
index d03cb490..d18f6fdb 100644
--- a/eval.h
+++ b/eval.h
@@ -31,7 +31,7 @@ extern val eval_error_s, if_s, call_s;
 extern val eq_s, eql_s, equal_s;
 extern val car_s, cdr_s;
 extern val last_form_evaled, last_form_expanded;
-extern val load_path_s;
+extern val load_path_s, load_recursive_s;
 
 #define load_path (deref(lookup_var_l(nil, load_path_s)))