X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fbacktrace.c;h=07af8fe5fdaf1de050add9b38333e27f1e0c7d38;hb=e663f81f7297ab9f53b38d5f0975152de3557e69;hp=f5515d516af8585632fe33c2e4edbf3a2a66f9c0;hpb=17cb282da217376a547c60967ad7a4698a8b7fa4;p=sbcl.git

diff --git a/src/runtime/backtrace.c b/src/runtime/backtrace.c
index f5515d5..07af8fe 100644
--- a/src/runtime/backtrace.c
+++ b/src/runtime/backtrace.c
@@ -406,6 +406,20 @@ debug_function_from_pc (struct code* code, void *pc)
 }
 
 static void
+sbcl_putwc(wchar_t c, FILE *file)
+{
+#ifdef LISP_FEATURE_OS_PROVIDES_PUTWC
+    putwc(c, file);
+#else
+    if (c < 256) {
+        fputc(c, file);
+    } else {
+        fputc('?', file);
+    }
+#endif
+}
+
+static void
 print_string (lispobj *object)
 {
   int tag = widetag_of(*object);
@@ -420,7 +434,7 @@ print_string (lispobj *object)
       wchar_t c = (wchar_t) data[i];            \
       if (c == '\\' || c == '"')                \
         putchar('\\');                          \
-      putwc(c, stdout);                         \
+      sbcl_putwc(c, stdout);                    \
     }                                           \
   } while (0)