#include <stdio.h>
#include <stdarg.h>
+#include <stdlib.h>
#include "arch.h"
#include "signal.h"
#include "interr.h"
#include "print.h"
#include "lispregs.h"
+#include "genesis/static-symbols.h"
+#include "genesis/vector.h"
\f
/* the way that we shut down the system on a fatal error */
lose(char *fmt, ...)
{
va_list ap;
- fprintf(stderr, "fatal error encountered in SBCL runtime system");
+ fprintf(stderr, "fatal error encountered in SBCL pid %d",getpid());
if (fmt) {
fprintf(stderr, ":\n");
va_start(ap, fmt);
that %primitive print is used (it's only a debugging aid anyway)
we just put guarantee our safety by putting an unused buffer on
the stack before doing anything else here */
- char untouched[32];
+ char untouched[32]; /* GCC warns about not using this, but that's the point.. */
fprintf(stderr, "%s\n",
(char *)(((struct vector *)native_pointer(string))->data),untouched);
return NIL;