/[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.210.4.1 by handa, Fri Apr 16 12:50:46 2004 UTC revision 1.210.4.2 by miles, Mon Jun 28 07:29:20 2004 UTC
# Line 617  usage: (defun NAME ARGLIST [DOCSTRING] B Line 617  usage: (defun NAME ARGLIST [DOCSTRING] B
617    register Lisp_Object defn;    register Lisp_Object defn;
618    
619    fn_name = Fcar (args);    fn_name = Fcar (args);
620      CHECK_SYMBOL (fn_name);
621    defn = Fcons (Qlambda, Fcdr (args));    defn = Fcons (Qlambda, Fcdr (args));
622    if (!NILP (Vpurify_flag))    if (!NILP (Vpurify_flag))
623      defn = Fpurecopy (defn);      defn = Fpurecopy (defn);
# Line 1220  VAR may be nil; then you do not get acce Line 1221  VAR may be nil; then you do not get acce
1221    
1222  The value of the last BODY form is returned from the condition-case.  The value of the last BODY form is returned from the condition-case.
1223  See also the function `signal' for more info.  See also the function `signal' for more info.
1224  usage: (condition-case VAR BODYFORM HANDLERS...)  */)  usage: (condition-case VAR BODYFORM &rest HANDLERS)  */)
1225       (args)       (args)
1226       Lisp_Object args;       Lisp_Object args;
1227  {  {
# Line 1235  usage: (condition-case VAR BODYFORM HAND Line 1236  usage: (condition-case VAR BODYFORM HAND
1236    handlers = Fcdr (Fcdr (args));    handlers = Fcdr (Fcdr (args));
1237    CHECK_SYMBOL (var);    CHECK_SYMBOL (var);
1238    
1239    for (val = handlers; ! NILP (val); val = Fcdr (val))    for (val = handlers; CONSP (val); val = XCDR (val))
1240      {      {
1241        Lisp_Object tem;        Lisp_Object tem;
1242        tem = Fcar (val);        tem = XCAR (val);
1243        if (! (NILP (tem)        if (! (NILP (tem)
1244               || (CONSP (tem)               || (CONSP (tem)
1245                   && (SYMBOLP (XCAR (tem))                   && (SYMBOLP (XCAR (tem))
# Line 3243  If NFRAMES is more than the number of fr Line 3244  If NFRAMES is more than the number of fr
3244    
3245    
3246  void  void
3247    mark_backtrace ()
3248    {
3249      register struct backtrace *backlist;
3250      register int i;
3251    
3252      for (backlist = backtrace_list; backlist; backlist = backlist->next)
3253        {
3254          mark_object (*backlist->function);
3255    
3256          if (backlist->nargs == UNEVALLED || backlist->nargs == MANY)
3257            i = 0;
3258          else
3259            i = backlist->nargs - 1;
3260          for (; i >= 0; i--)
3261            mark_object (backlist->args[i]);
3262        }
3263    }
3264    
3265    void
3266  syms_of_eval ()  syms_of_eval ()
3267  {  {
3268    DEFVAR_INT ("max-specpdl-size", &max_specpdl_size,    DEFVAR_INT ("max-specpdl-size", &max_specpdl_size,

Legend:
Removed from v.1.210.4.1  
changed lines
  Added in v.1.210.4.2

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