Simplify (and robustify) regular PACKing

[sbcl.git] / src / runtime / interr.h

diff --git a/src/runtime/interr.h b/src/runtime/interr.h
index f9d80e6..02c8b3c 100644 (file)
--- a/src/runtime/interr.h
+++ b/src/runtime/interr.h
@@ -9,15 +9,14 @@
  * files for more information.
  */
 
-/*
- * $Header$
- */
-
 #ifndef _INTERR_H_
 #define _INTERR_H_
 
-extern void lose(char *fmt, ...);
-extern void set_lossage_handler(void fun(void));
+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);
 
 extern lispobj debug_print(lispobj string);