mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 05:51:11 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
lvalue.
This commit is contained in:
Karl Heuer 1994-10-04 15:50:45 +00:00
parent 55561c637e
commit a631e24c1f
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/eval.c
View file

@ -1533,9 +1533,9 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
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 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
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 @@ Thus, (funcall 'cons 'x 'y) returns (x . y).")
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 @@ funcall_lambda (fun, nargs, arg_vector)
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 @@ Output stream used is value of `standard-output'.")
extern Lisp_Object Vprint_level;
struct gcpro gcpro1;
XFASTINT (Vprint_level) = 3;
XSETFASTINT (Vprint_level, 3);
tail = Qnil;
GCPRO1 (tail);