# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781290279 0
# Node ID 4db4768d58570e4938699116a6d6756771c5d782
# Parent  b3398cf56fba0421fc5b495a5b42411671e9b025
(XFASTINT): Changed to non-lvalue syntax, to ensure that callers will use
XSETFASTINT instead.

diff -r b3398cf56fba -r 4db4768d5857 src/lisp.h
--- a/src/lisp.h	Tue Oct 04 16:46:24 1994 +0000
+++ b/src/lisp.h	Tue Oct 04 17:04:39 1994 +0000
@@ -316,7 +316,7 @@
 /* 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 @@
 /* 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