X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.h;h=860243260acfd7f2f37583e4c87b7268af400551;hb=ba9112b2f0ba10230be5bdfc75c8e082da9bfbe0;hp=bda2896d91e5af9b56b165135220e1e1884c35cf;hpb=4bf2de6a2adff75459cf218c8bff67f6cdb91211;p=sbcl.git

diff --git a/src/runtime/runtime.h b/src/runtime/runtime.h
index bda2896..8602432 100644
--- a/src/runtime/runtime.h
+++ b/src/runtime/runtime.h
@@ -49,7 +49,7 @@
 
 #if QSHOW
 
-#if QSHOW_SIGNAL_SAFE
+#if QSHOW_SIGNAL_SAFE == 1 && !defined(LISP_FEATURE_WIN32)
 
 #include <signal.h>
 extern sigset_t blockable_sigset;
@@ -229,6 +229,24 @@ fixnum_value(lispobj n)
 #endif
 typedef int boolean;
 
+static inline boolean
+other_immediate_lowtag_p(lispobj header)
+{
+    switch (lowtag_of(header)) {
+    case OTHER_IMMEDIATE_0_LOWTAG:
+    case OTHER_IMMEDIATE_1_LOWTAG:
+#ifdef OTHER_IMMEDIATE_2_LOWTAG
+    case OTHER_IMMEDIATE_2_LOWTAG:
+#endif
+#ifdef OTHER_IMMEDIATE_3_LOWTAG
+    case OTHER_IMMEDIATE_3_LOWTAG:
+#endif
+        return 1;
+    default:
+        return 0;
+    }
+}
+
 /* KLUDGE: As far as I can tell there's no ANSI C way of saying
  * "this function never returns". This is the way that you do it
  * in GCC later than version 2.5 or so. */