1.0.33.22: fix WITH-MUTEX docstring

[sbcl.git] / src / runtime / runtime.h

diff --git a/src/runtime/runtime.h b/src/runtime/runtime.h
index 2d4eea7..8602432 100644 (file)
--- a/src/runtime/runtime.h
+++ b/src/runtime/runtime.h
@@ -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. */