/[emacs]/emacs/src/eval.c
ViewVC logotype

Diff of /emacs/src/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.234 by rms, Sun Mar 6 16:02:47 2005 UTC revision 1.235 by kfstorm, Sun Apr 3 22:08:58 2005 UTC
# Line 2742  usage: (funcall FUNCTION &rest ARGUMENTS Line 2742  usage: (funcall FUNCTION &rest ARGUMENTS
2742    if (debug_on_next_call)    if (debug_on_next_call)
2743      do_debug_on_call (Qlambda);      do_debug_on_call (Qlambda);
2744    
2745      CHECK_CONS_LIST ();
2746    
2747   retry:   retry:
2748    
2749    fun = args[0];    fun = args[0];
# Line 2750  usage: (funcall FUNCTION &rest ARGUMENTS Line 2752  usage: (funcall FUNCTION &rest ARGUMENTS
2752    
2753    if (SUBRP (fun))    if (SUBRP (fun))
2754      {      {
2755        CHECK_CONS_LIST ();         if (numargs < XSUBR (fun)->min_args
   
       if (numargs < XSUBR (fun)->min_args  
2756            || (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs))            || (XSUBR (fun)->max_args >= 0 && XSUBR (fun)->max_args < numargs))
2757          {          {
2758            XSETFASTINT (lisp_numargs, numargs);            XSETFASTINT (lisp_numargs, numargs);
# Line 2844  usage: (funcall FUNCTION &rest ARGUMENTS Line 2844  usage: (funcall FUNCTION &rest ARGUMENTS
2844        else if (EQ (funcar, Qautoload))        else if (EQ (funcar, Qautoload))
2845          {          {
2846            do_autoload (fun, args[0]);            do_autoload (fun, args[0]);
2847              CHECK_CONS_LIST ();
2848            goto retry;            goto retry;
2849          }          }
2850        else        else

Legend:
Removed from v.1.234  
changed lines
  Added in v.1.235

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26