[Emacs-diffs] Changes to emacs/src/eval.c [emacs-unicode-2]

[Miles Bader]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.210.4.1 emacs/src/eval.c:1.210.4.2
*** emacs/src/eval.c:1.210.4.1  Fri Apr 16 12:50:46 2004
--- emacs/src/eval.c    Mon Jun 28 07:29:20 2004
***************
*** 617,622 ****
--- 617,623 ----
    register Lisp_Object defn;
  
    fn_name = Fcar (args);
+   CHECK_SYMBOL (fn_name);
    defn = Fcons (Qlambda, Fcdr (args));
    if (!NILP (Vpurify_flag))
      defn = Fpurecopy (defn);
***************
*** 1220,1226 ****
  
  The value of the last BODY form is returned from the condition-case.
  See also the function `signal' for more info.
! usage: (condition-case VAR BODYFORM HANDLERS...)  */)
       (args)
       Lisp_Object args;
  {
--- 1221,1227 ----
  
  The value of the last BODY form is returned from the condition-case.
  See also the function `signal' for more info.
! usage: (condition-case VAR BODYFORM &rest HANDLERS)  */)
       (args)
       Lisp_Object args;
  {
***************
*** 1235,1244 ****
    handlers = Fcdr (Fcdr (args));
    CHECK_SYMBOL (var);
  
!   for (val = handlers; ! NILP (val); val = Fcdr (val))
      {
        Lisp_Object tem;
!       tem = Fcar (val);
        if (! (NILP (tem)
             || (CONSP (tem)
                 && (SYMBOLP (XCAR (tem))
--- 1236,1245 ----
    handlers = Fcdr (Fcdr (args));
    CHECK_SYMBOL (var);
  
!   for (val = handlers; CONSP (val); val = XCDR (val))
      {
        Lisp_Object tem;
!       tem = XCAR (val);
        if (! (NILP (tem)
             || (CONSP (tem)
                 && (SYMBOLP (XCAR (tem))
***************
*** 3243,3248 ****
--- 3244,3268 ----
  
  
  void
+ mark_backtrace ()
+ {
+   register struct backtrace *backlist;
+   register int i;
+ 
+   for (backlist = backtrace_list; backlist; backlist = backlist->next)
+     {
+       mark_object (*backlist->function);
+ 
+       if (backlist->nargs == UNEVALLED || backlist->nargs == MANY)
+       i = 0;
+       else
+       i = backlist->nargs - 1;
+       for (; i >= 0; i--)
+       mark_object (backlist->args[i]);
+     }
+ }
+ 
+ void
  syms_of_eval ()
  {
    DEFVAR_INT ("max-specpdl-size", &max_specpdl_size,