From 306a1ddac7d66a689baf36e3bb449e30d0b30344 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sun, 10 Oct 2010 14:54:52 +0000 Subject: [PATCH] Use lowtag_Bits -1 instead a hard-wired 2. --- lisp/lisp.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/lisp.h b/lisp/lisp.h index dc0a902c4..9b48af7f4 100644 --- a/lisp/lisp.h +++ b/lisp/lisp.h @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.h,v 1.11 2008/11/12 15:04:24 rtoy Rel $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.h,v 1.12 2010/10/10 14:54:52 rtoy Exp $ */ #ifndef _LISP_H_ #define _LISP_H_ @@ -28,8 +28,8 @@ typedef signed int s32; typedef u32 lispobj; #endif -#define make_fixnum(n) ((lispobj)((n)<<2)) -#define fixnum_value(n) (((long)n)>>2) +#define make_fixnum(n) ((lispobj)((n)<<(lowtag_Bits-1))) +#define fixnum_value(n) (((long)n)>>(lowtag_Bits-1)) #define boolean int #ifndef TRUE -- GitLab