X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.h;h=02c8b3c3a4adc0b41e64b46c56efe6bed499af05;hb=bf40ae88bc289fd765a33861cc4bc0853ed483ba;hp=e527fcb68df88e25bacda459f772f56d7e0766c6;hpb=bf282f716a1ecaa09794a2cac7ce7da8d0d87675;p=sbcl.git

diff --git a/src/runtime/interr.h b/src/runtime/interr.h
index e527fcb..02c8b3c 100644
--- a/src/runtime/interr.h
+++ b/src/runtime/interr.h
@@ -13,6 +13,8 @@
 #define _INTERR_H_
 
 extern void lose(char *fmt, ...) never_returns;
+extern boolean lose_on_corruption_p;
+extern void corruption_warning_and_maybe_lose(char *fmt, ...);
 extern void enable_lossage_handler(void);
 extern void disable_lossage_handler(void);
 extern void describe_internal_error(os_context_t *context);