X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.c;h=5f7869c4bbe7552ff1d54e5664a325d715856632;hb=26e8f33d8639e4de75e59e3aa30bbd7478d51a69;hp=b24b7263ac972a6912e3c1a50943fdb942e5d243;hpb=7c95296be17c831ec49f6d4f720ed9c3a1be218d;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;
 }