X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Ffixnump.h;h=9681520e24fa361be9db8404500c5f867fc29fc9;hb=7c406887c08477181e869b1b98142d99b52990ac;hp=b3aadb7061442658ab305320ec2216b9d6d79849;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git diff --git a/src/runtime/fixnump.h b/src/runtime/fixnump.h index b3aadb7..9681520 100644 --- a/src/runtime/fixnump.h +++ b/src/runtime/fixnump.h @@ -12,7 +12,8 @@ #ifndef _FIXNUMP_H #define _FIXNUMP_H -static inline int fixnump(lispobj obj) { +static inline int fixnump(lispobj obj) +{ return((obj & (LOWTAG_MASK & (~(EVEN_FIXNUM_LOWTAG|ODD_FIXNUM_LOWTAG))))