X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.c;h=5f7869c4bbe7552ff1d54e5664a325d715856632;hb=07ab1e4811ab16f95a9a5e8d767426a0787f22c0;hp=8d0b01b7a7fa804cb37a454165eda479c63be9f1;hpb=bf282f716a1ecaa09794a2cac7ce7da8d0d87675;p=sbcl.git

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index 8d0b01b..5f7869c 100644
--- a/src/runtime/interr.c
+++ b/src/runtime/interr.c
@@ -54,7 +54,7 @@ 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 %lu)",thread_self());
+    fprintf(stderr, "(tid %lu)", (unsigned long) thread_self());
 #endif
     if (fmt) {
         fprintf(stderr, ":\n");
@@ -177,6 +177,6 @@ lispobj debug_print(lispobj string)
     fprintf(stderr, "%s\n",
             (char *)(((struct vector *)native_pointer(string))->data));
     /* shut GCC up about not using this, because that's the point.. */
-    if (untouched);
+    (void)untouched;
     return NIL;
 }