Date: Sunday, October 10, 2010 @ 10:54:52 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp
Modified: lisp.h
Use lowtag_Bits -1 instead a hard-wired 2.
--------+ lisp.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-)
Index: src/lisp/lisp.h diff -u src/lisp/lisp.h:1.11 src/lisp/lisp.h:1.12 --- src/lisp/lisp.h:1.11 Wed Nov 12 10:04:24 2008 +++ src/lisp/lisp.h Sun Oct 10 10:54:52 2010 @@ -1,4 +1,4 @@ -/* $Header: /project/cmucl/cvsroot/src/lisp/lisp.h,v 1.11 2008-11-12 15:04:24 rtoy Rel $ */ +/* $Header: /project/cmucl/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 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