[cmucl-cvs] CMUCL commit: src/lisp (lisp.h)

Raymond Toy rtoy at common-lisp.net
Sun Oct 10 14:54:52 UTC 2010


    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




More information about the cmucl-cvs mailing list