src/lisp/interr.h

   1 /*
   2  * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.h,v 1.4 2005/09/15 18:26:51 rtoy Rel $
   3  */
   4
   5 #ifndef _INTERR_H_
   6 #define _INTERR_H_
   7
   8 #define crap_out(msg) do { write(2, msg, sizeof(msg)); lose(); } while (0)
   9
  10 extern void lose(char *fmt, ...);
  11 extern void set_lossage_handler(void fun(void));
  12 extern void internal_error(os_context_t * context);
  13
  14 extern lispobj debug_print(lispobj string);
  15
  16 #endif /* _INTERR_H_ */