0.8.7.10:

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

diff --git a/src/runtime/gc.h b/src/runtime/gc.h
index c27ab79..8b0f62e 100644 (file)
--- a/src/runtime/gc.h
+++ b/src/runtime/gc.h
@@ -28,4 +28,12 @@ extern void set_auto_gc_trigger(os_vm_size_t usage);
 extern void clear_auto_gc_trigger(void);
 
 extern int maybe_gc_pending;
+
+static inline int fixnump(lispobj obj) {
+    return((obj & 
+           (LOWTAG_MASK & 
+            (~(EVEN_FIXNUM_LOWTAG|ODD_FIXNUM_LOWTAG)))) 
+          == 0);
+}
+
 #endif /* _GC_H_ */