1 files changed, 5 insertions, 0 deletions
diff --git a/unwind.c b/unwind.c
index b89bf991..36c1a1e0 100644
--- a/unwind.c
+++ b/unwind.c
@@ -707,6 +707,11 @@ val uw_defer_warning(val args)
   return nil;
 }
 
+val uw_warning_exists(val tag)
+{
+  return member(tag, deferred_warnings, equal_f, cdr_f);
+}
+
 val uw_register_tentative_def(val tag)
 {
   uw_purge_deferred_warning(tag);