*** empty log message ***

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;