(XFASTINT): Changed to non-lvalue syntax, to ensure that callers will use

XSETFASTINT instead.

diff --git a/src/lisp.h b/src/lisp.h
index 95892c1507b1dafe45b14ff106e82585c4230a54..d747093ddefe2384b361e1d50bf6b1d5e4aad6e6 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -316,7 +316,7 @@ you lose
 /* For integers known to be positive, XFASTINT provides fast retrieval
    and XSETFASTINT provides fast storage.  This takes advantage of the
    fact that Lisp_Int is 0.  */
-#define XFASTINT(a) (a)
+#define XFASTINT(a) ((a) + 0)
 #define XSETFASTINT(a, b) ((a) = (b))
 
 /* Extract the value of a Lisp_Object as a signed integer.  */
@@ -400,7 +400,7 @@ extern int pure_size;
 /* For integers known to be positive, XFASTINT provides fast retrieval
    and XSETFASTINT provides fast storage.  This takes advantage of the
    fact that Lisp_Int is 0.  */
-#define XFASTINT(a) ((a).i)
+#define XFASTINT(a) ((a).i + 0)
 #define XSETFASTINT(a, b) ((a).i = (b))
 
 #ifdef EXPLICIT_SIGN_EXTEND