Clean up RCS ids
[projects/cmucl/cmucl.git] / src / lisp / interr.h
CommitLineData
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
13extern void lose(char *fmt, ...);
14extern void set_lossage_handler(void fun(void));
9a8c1c2f 15extern void internal_error(os_context_t * context);
62957726 16
17extern lispobj debug_print(lispobj string);
18
e67c0397 19#endif /* _INTERR_H_ */