(Faref, Farray_length): Don't use XFASTINT as an lvalue.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/data.c b/src/data.c
index b9f0e532971..f6cba5c6dd1 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1336,7 +1336,7 @@ ARRAY may be a vector or a string, or a byte-code object.  INDEX starts at 0.")
   if (STRINGP (array))
     {
       Lisp_Object val;
-      XFASTINT (val) = (unsigned char) XSTRING (array)->data[idxval];
+      XSETFASTINT (val, (unsigned char) XSTRING (array)->data[idxval]);
       return val;
     }
   else
@@ -1378,7 +1378,7 @@ Farray_length (array)
   register Lisp_Object size;
   if (!VECTORP (array) && !STRINGP (array) && !COMPILEDP (array))
     array = wrong_type_argument (Qarrayp, array);
-  XFASTINT (size) = XVECTOR (array)->size;
+  XSETFASTINT (size, XVECTOR (array)->size);
   return size;
 }