# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781285477 0
# Node ID e6daff3e246f1023e0e14f7ea6e18ed8b454e2d0
# Parent  84822d6ed3be9b7df85babbcd3b43b24d21c95a5
(Faref, Farray_length): Don't use XFASTINT as an lvalue.

diff -r 84822d6ed3be -r e6daff3e246f src/data.c
--- a/src/data.c	Tue Oct 04 15:43:31 1994 +0000
+++ b/src/data.c	Tue Oct 04 15:44:37 1994 +0000
@@ -1336,7 +1336,7 @@
   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 @@
   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;
 }