X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.c;h=5f7869c4bbe7552ff1d54e5664a325d715856632;hb=7a0f4c68d94ff6c9a54c7605b6fd3cd8125c1c8c;hp=b24b7263ac972a6912e3c1a50943fdb942e5d243;hpb=4023b1bec2412344e5eea4a33cd85dd662149c67;p=sbcl.git

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index b24b726..5f7869c 100644
--- a/src/runtime/interr.c
+++ b/src/runtime/interr.c
@@ -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;
 }