X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fruntime%2Fgc.h;h=8b0f62e9d9fb75f529863caf2215f5f0458d3e7e;hb=f706a441d7c09cba32701289b63946527fef3c78;hp=c27ab794a6c25e1a056a0ca11cc1edc7b5a757d1;hpb=f5146484af254ef6812f0417deed9ccd5c2eda27;p=sbcl.git

diff --git a/src/runtime/gc.h b/src/runtime/gc.h
index c27ab79..8b0f62e 100644
--- 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_ */