Muffle only deferrable warnings in sys:expand.

The problem is that if some macrology is performing its own
expansion with sys:expand, and if all warnings are muffled in
sys:expand, it means that some warnings will never be seen.
Expansion is the last chance to produce warnings issued by
macros. Once they are expanded, a redundant expansion pass
won't issue the warnings any more.

* eval.c (no_warn_expand); Use the
uw_muffle_deferrable_warning handler isntead of
uw_muffle_warnings.

* unwind.c (uw_muffle_deferrable_warning): New function.

* unwind.h (uw_muffle_deferrable_warning): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/unwind.h b/unwind.h
index 1301f2e7..30da0146 100644
--- a/unwind.h
+++ b/unwind.h
@@ -150,6 +150,7 @@ val uw_find_frame(val extype, val frtype);
 val uw_find_frames(val extype, val frtype);
 val uw_invoke_catch(val catch_frame, val sym, struct args *);
 val uw_muffle_warning(val exc, struct args *);
+val uw_muffle_deferrable_warning(val exc, struct args *);
 val uw_capture_cont(val tag, val fun, val ctx_form);
 void uw_push_cont_copy(uw_frame_t *, mem_t *ptr,
                        void (*copy)(mem_t *ptr, int parent));