X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.c;h=92386019ed843ad01b6b3282d9e05c1c79a2cd8f;hb=b03ad9b03a3cfec37db9bf6bb0912725959335e3;hp=4ef3766ee770f9dbde0a1ca7d0410fbdb0e4c9f0;hpb=426bde0954ef91387b8ab0d4528fad9ec02fa24c;p=sbcl.git diff --git a/src/runtime/interr.c b/src/runtime/interr.c index 4ef3766..9238601 100644 --- a/src/runtime/interr.c +++ b/src/runtime/interr.c @@ -43,13 +43,13 @@ set_lossage_handler(void handler(void)) lossage_handler = handler; } -never_returns +void lose(char *fmt, ...) { va_list ap; fprintf(stderr, "fatal error encountered in SBCL pid %d",getpid()); #if defined(LISP_FEATURE_SB_THREAD) - fprintf(stderr, "(tid %ld)",thread_self()); + fprintf(stderr, "(tid %lu)",thread_self()); #endif if (fmt) { fprintf(stderr, ":\n");