/*
 * $Header: /project/cmucl/cvsroot/src/lisp/interr.h,v 1.4 2005-09-15 18:26:51 rtoy Rel $
 */

#ifndef _INTERR_H_
#define _INTERR_H_

#define crap_out(msg) do { write(2, msg, sizeof(msg)); lose(); } while (0)

extern void lose(char *fmt, ...);
extern void set_lossage_handler(void fun(void));
extern void internal_error(os_context_t * context);

extern lispobj debug_print(lispobj string);

#endif /* _INTERR_H_ */
