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

[Kim F . Storm]

Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.234 emacs/src/eval.c:1.235
*** emacs/src/eval.c:1.234      Sun Mar  6 16:02:47 2005
--- emacs/src/eval.c    Sun Apr  3 22:08:58 2005
***************
*** 2742,2747 ****
--- 2742,2749 ----
    if (debug_on_next_call)
      do_debug_on_call (Qlambda);
  
+   CHECK_CONS_LIST ();
+ 
   retry:
  
    fun = args[0];
***************
*** 2750,2758 ****
  
    if (SUBRP (fun))
      {
!       CHECK_CONS_LIST ();
! 
!       if (numargs < XSUBR (fun)->min_args
          || (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs))
        {
          XSETFASTINT (lisp_numargs, numargs);
--- 2752,2758 ----
  
    if (SUBRP (fun))
      {
!        if (numargs < XSUBR (fun)->min_args
          || (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs))
        {
          XSETFASTINT (lisp_numargs, numargs);
***************
*** 2844,2849 ****
--- 2844,2850 ----
        else if (EQ (funcar, Qautoload))
        {
          do_autoload (fun, args[0]);
+         CHECK_CONS_LIST ();
          goto retry;
        }
        else