X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.h;h=860243260acfd7f2f37583e4c87b7268af400551;hb=c553e4be6da2d18f0827f190589c88e837b8b8a6;hp=2d4eea7e362a9396de5c303ab110220428b07be2;hpb=3cb38bad21763eb16bd89d89a5fac9a186ac625b;p=sbcl.git

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