diff src/eval.c @ 9306:ac852c183fa1

(Feval, Ffuncall, funcall_lambda, Fbacktrace): Don't use XFASTINT as an lvalue.

--- a/src/eval.c	Tue Oct 04 15:49:29 1994 +0000
+++ b/src/eval.c	Tue Oct 04 15:50:45 1994 +0000
@@ -1533,9 +1533,9 @@
         return Fsymbol_value (form);
       val = Fsymbol_value (form);
       if (NILP (val))
-	XFASTINT (val) = 0;
+	XSETFASTINT (val, 0);
       else if (EQ (val, Qt))
-	XFASTINT (val) = 1;
+	XSETFASTINT (val, 1);
       return val;
     }
   if (!CONSP (form))
@@ -1708,9 +1708,9 @@
   if (!EQ (Vmocklisp_arguments, Qt))
     {
       if (NILP (val))
-	XFASTINT (val) = 0;
+	XSETFASTINT (val, 0);
       else if (EQ (val, Qt))
-	XFASTINT (val) = 1;
+	XSETFASTINT (val, 1);
     }
   lisp_eval_depth--;
   if (backtrace.debug_on_exit)
@@ -2025,7 +2025,7 @@
       if (numargs < XSUBR (fun)->min_args
 	  || (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs))
 	{
-	  XFASTINT (lisp_numargs) = numargs;
+	  XSETFASTINT (lisp_numargs, numargs);
 	  return Fsignal (Qwrong_number_of_arguments, Fcons (fun, Fcons (lisp_numargs, Qnil)));
 	}
 
@@ -2187,7 +2187,7 @@
 
   specbind (Qmocklisp_arguments, Qt);   /* t means NOT mocklisp! */
 
-  XFASTINT (numargs) = nargs;
+  XSETFASTINT (numargs, nargs);
 
   if (CONSP (fun))
     syms_left = Fcar (Fcdr (fun));
@@ -2397,7 +2397,7 @@
   extern Lisp_Object Vprint_level;
   struct gcpro gcpro1;
 
-  XFASTINT (Vprint_level) = 3;
+  XSETFASTINT (Vprint_level, 3);
 
   tail = Qnil;
   GCPRO1 (tail);