[projects/cmucl/cmucl.git] / src / lisp / interr.h

/*

 This code was written as part of the CMU Common Lisp project at
 Carnegie Mellon University, and has been placed in the public domain.

*/

#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 void utf16_output(unsigned short int* utf16, int len);
extern lispobj debug_print(lispobj string);

#endif /* _INTERR_H_ */
Commit	Line	Data
62957726	1	/*
eeab7066 RT	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	*/
62957726	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));
9a8c1c2f	15	extern void internal_error(os_context_t * context);
62957726	16
eb7aef5b	17	extern void utf16_output(unsigned short int* utf16, int len);
62957726	18	extern lispobj debug_print(lispobj string);
62957726	19
e67c0397	20	#endif /* _INTERR_H_ */