diff options
| -rw-r--r-- | src/eval.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c index de6784a81b6..6940b8dbada 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1946,13 +1946,15 @@ funcall_lambda (fun, nargs, arg_vector) { QUIT; next = Fcar (syms_left); + while (XTYPE (next) != Lisp_Symbol) + next = Fsignal (Qinvalid_function, Fcons (fun, Qnil)); if (EQ (next, Qand_rest)) rest = 1; else if (EQ (next, Qand_optional)) optional = 1; else if (rest) { - specbind (Fcar (syms_left), Flist (nargs - i, &arg_vector[i])); + specbind (next, Flist (nargs - i, &arg_vector[i])); i = nargs; } else if (i < nargs) @@ -2007,6 +2009,8 @@ specbind (symbol, value) extern void store_symval_forwarding (); /* in eval.c */ Lisp_Object ovalue; + CHECK_SYMBOL (symbol, 0); + if (specpdl_ptr == specpdl + specpdl_size) grow_specpdl (); specpdl_ptr->symbol = symbol; |