Mercurial > emacs
changeset 9306:ac852c183fa1
(Feval, Ffuncall, funcall_lambda, Fbacktrace): Don't use XFASTINT as an
lvalue.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 04 Oct 1994 15:50:45 +0000 |
| parents | ac077e2a75f1 |
| children | 44d6fc4b638b |
| files | src/eval.c |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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);