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