From 632d7dd9120f78c3e46bc1774a8cddf75b7a86fc Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 28 Aug 2010 20:56:36 +0000 Subject: [PATCH] Fix SVM interpreter's INDEX-FIXNUM? predicate. --- src/microcode/svm1-interp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/microcode/svm1-interp.c b/src/microcode/svm1-interp.c index 6ce845408..89e2be000 100644 --- a/src/microcode/svm1-interp.c +++ b/src/microcode/svm1-interp.c @@ -771,7 +771,7 @@ DEFINE_CJF_1 (pl, pu, s32, S32) #define CMP_FIX(a) (LONG_TO_FIXNUM_P (a)) #define CMP_NFIX(a) (!CMP_FIX (a)) -#define CMP_IFIX(a) (((a) & SIGN_MASK) == (TC_FIXNUM * 2)) +#define CMP_IFIX(a) (((a) & SIGN_MASK) == (MAKE_OBJECT (TC_FIXNUM, 0))) #define CMP_NIFIX(a) (!CMP_IFIX (a)) DEFINE_CJF (fix, FIX) -- 2.25.1