Output lisp strings in utf8 format in ldb print.
[projects/cmucl/cmucl.git] / 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 void utf16_output(unsigned short int* utf16, int len);
18 extern lispobj debug_print(lispobj string);
19
20 #endif /* _INTERR_H_ */