X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Ffixnump.h;h=756e2eaa4eda68895b93b79a8cd512fd8dfeda72;hb=5f0bd05a15aaf93f46baf9b8aa3e9b0bfbca26ab;hp=cb56fe060743fd54a40fc2d7558443f5d7f9a0a7;hpb=a608f5895479f67690a819a781cdb75641b13c61;p=sbcl.git

diff --git a/src/runtime/fixnump.h b/src/runtime/fixnump.h
index cb56fe0..756e2ea 100644
--- a/src/runtime/fixnump.h
+++ b/src/runtime/fixnump.h
@@ -12,11 +12,9 @@
 #ifndef _FIXNUMP_H
 #define _FIXNUMP_H
 
-static inline int fixnump(lispobj obj) {
-    return((obj & 
-	    (LOWTAG_MASK & 
-	     (~(EVEN_FIXNUM_LOWTAG|ODD_FIXNUM_LOWTAG)))) 
-	   == 0);
+static inline int fixnump(lispobj obj)
+{
+    return((obj & FIXNUM_TAG_MASK) == 0);
 }
 
 #endif