From 4985d97f85023584640ed45cbfa0d581e675a99f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 9 Feb 2017 14:57:25 -0800
Subject: Suppress only deferrable warnings in op expander.

* eval.c (me_op): Switch from uw_muffle_warning
to uw_muffle_deferrable_warning.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 24d545e9..f3f9cd6f 100644
--- a/eval.c
+++ b/eval.c
@@ -3390,7 +3390,7 @@ static val me_op(val form, val menv)
   uw_frame_t uw_handler;
   val new_menv = make_var_shadowing_env(menv, cons(rest_s, nil));
   val body_ex = (uw_push_handler(&uw_handler, cons(warning_s, nil),
-                                 func_n1v(uw_muffle_warning)),
+                                 func_n1v(uw_muffle_deferrable_warning)),
                  if3(sym == op_s,
                     expand_forms_lisp1(body, new_menv),
                     expand(body, new_menv)));
-- 
cgit v1.2.3