diff src/data.c @ 9301:e6daff3e246f

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

--- 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;
 }