src/lisp/interr.h

   1 /*
   2
   3  This code was written as part of the CMU Common Lisp project at
   4  Carnegie Mellon University, and has been placed in the public domain.
   5
   6 */
   7
   8 #ifndef _INTERR_H_
   9 #define _INTERR_H_
  10
  11 #define crap_out(msg) do { write(2, msg, sizeof(msg)); lose(); } while (0)
  12
  13 extern void lose(char *fmt, ...);
  14 extern void set_lossage_handler(void fun(void));
  15 extern void internal_error(os_context_t * context);
  16
  17 extern lispobj debug_print(lispobj string);
  18
  19 #endif /* _INTERR_H_ */