comparison src/eval.c @ 83284:360860a0006f

Merged from [e-mail]--gnu-2005 (patch 45-55, 214-231) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-214 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-215 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-216 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-217 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-218 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-219 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-220 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-221 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-222 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-223 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-224 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-225 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-226 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-227 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-228 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-229 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-230 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-231 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-45 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-46 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-47 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-48 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-49 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-50 Update from CVS: texi Makefile.in CVS keyw cruft * [e-mail]--gnu-2005/gnus--rel--5.10--patch-51 Update from CVS: ChangeLog tweaks * [e-mail]--gnu-2005/gnus--rel--5.10--patch-52 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-53 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-54 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-55 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-324

83283:45e5f0224d81

  backtrace.debug_on_exit = 0;

  if (debug_on_next_call)
    do_debug_on_call (Qlambda);

 retry:

  fun = args[0];

  fun = Findirect_function (fun);

  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);
	  return Fsignal (Qwrong_number_of_arguments, Fcons (fun, Fcons (lisp_numargs, Qnil)));
	}

      if (EQ (funcar, Qlambda))
	val = funcall_lambda (fun, numargs, args + 1);
      else if (EQ (funcar, Qautoload))
	{
	  do_autoload (fun, args[0]);
	  goto retry;
	}
      else
	return Fsignal (Qinvalid_function, Fcons (fun, Qnil));
    }

83284:360860a0006f

  backtrace.debug_on_exit = 0;

  if (debug_on_next_call)
    do_debug_on_call (Qlambda);

  CHECK_CONS_LIST ();

 retry:

  fun = args[0];

  fun = Findirect_function (fun);

  if (SUBRP (fun))
    {
       if (numargs < XSUBR (fun)->min_args
	  || (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs))
	{
	  XSETFASTINT (lisp_numargs, numargs);
	  return Fsignal (Qwrong_number_of_arguments, Fcons (fun, Fcons (lisp_numargs, Qnil)));
	}

      if (EQ (funcar, Qlambda))
	val = funcall_lambda (fun, numargs, args + 1);
      else if (EQ (funcar, Qautoload))
	{
	  do_autoload (fun, args[0]);
	  CHECK_CONS_LIST ();
	  goto retry;
	}
      else
	return Fsignal (Qinvalid_function, Fcons (fun, Qnil));
    }