# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781286754 0
# Node ID ed68c3822e4bbbdba82f600ce77c278e5d0809ca
# Parent  dfaf1d41e53d45f63f2d3d5983f67b3f539aa37e
(read_filtered_event, init_obarray): Don't use XFASTINT as an lvalue.

diff -r dfaf1d41e53d -r ed68c3822e4b src/lread.c
--- a/src/lread.c	Tue Oct 04 16:05:05 1994 +0000
+++ b/src/lread.c	Tue Oct 04 16:05:54 1994 +0000
@@ -266,7 +266,7 @@
 	      /* Merge this symbol's modifier bits
 		 with the ASCII equivalent of its basic code.  */
 	      if (!NILP (tem1))
-		XFASTINT (val) = XINT (tem1) | XINT (Fcar (Fcdr (tem)));
+		XSETFASTINT (val, XINT (tem1) | XINT (Fcar (Fcdr (tem))));
 	    }
 	}
 	  
@@ -1721,7 +1721,7 @@
   int hash;
   Lisp_Object *tem;
 
-  XFASTINT (oblength) = OBARRAY_SIZE;
+  XSETFASTINT (oblength, OBARRAY_SIZE);
 
   Qnil = Fmake_symbol (make_pure_string ("nil", 3));
   Vobarray = Fmake_vector (oblength, make_number (0));