/[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.242 by lektu, Tue Jun 14 00:38:22 2005 UTC revision 1.243 by lektu, Thu Jun 23 16:07:51 2005 UTC
# Line 785  usage: (defvar SYMBOL &optional INITVALU Line 785  usage: (defvar SYMBOL &optional INITVALU
785    sym = Fcar (args);    sym = Fcar (args);
786    tail = Fcdr (args);    tail = Fcdr (args);
787    if (!NILP (Fcdr (Fcdr (tail))))    if (!NILP (Fcdr (Fcdr (tail))))
788      error ("too many arguments");      error ("Too many arguments");
789    
790    tem = Fdefault_boundp (sym);    tem = Fdefault_boundp (sym);
791    if (!NILP (tail))    if (!NILP (tail))
# Line 845  usage: (defconst SYMBOL INITVALUE [DOCST Line 845  usage: (defconst SYMBOL INITVALUE [DOCST
845    
846    sym = Fcar (args);    sym = Fcar (args);
847    if (!NILP (Fcdr (Fcdr (Fcdr (args)))))    if (!NILP (Fcdr (Fcdr (Fcdr (args)))))
848      error ("too many arguments");      error ("Too many arguments");
849    
850    tem = Feval (Fcar (Fcdr (args)));    tem = Feval (Fcar (Fcdr (args)));
851    if (!NILP (Vpurify_flag))    if (!NILP (Vpurify_flag))
# Line 2037  DEFUN ("eval", Feval, Seval, 1, 1, 0, Line 2037  DEFUN ("eval", Feval, Seval, 1, 1, 0,
2037        if (max_lisp_eval_depth < 100)        if (max_lisp_eval_depth < 100)
2038          max_lisp_eval_depth = 100;          max_lisp_eval_depth = 100;
2039        if (lisp_eval_depth > max_lisp_eval_depth)        if (lisp_eval_depth > max_lisp_eval_depth)
2040          error ("Lisp nesting exceeds max-lisp-eval-depth");          error ("Lisp nesting exceeds `max-lisp-eval-depth'");
2041      }      }
2042    
2043    original_fun = Fcar (form);    original_fun = Fcar (form);
# Line 2733  usage: (funcall FUNCTION &rest ARGUMENTS Line 2733  usage: (funcall FUNCTION &rest ARGUMENTS
2733        if (max_lisp_eval_depth < 100)        if (max_lisp_eval_depth < 100)
2734          max_lisp_eval_depth = 100;          max_lisp_eval_depth = 100;
2735        if (lisp_eval_depth > max_lisp_eval_depth)        if (lisp_eval_depth > max_lisp_eval_depth)
2736          error ("Lisp nesting exceeds max-lisp-eval-depth");          error ("Lisp nesting exceeds `max-lisp-eval-depth'");
2737      }      }
2738    
2739    backtrace.next = backtrace_list;    backtrace.next = backtrace_list;

Legend:
Removed from v.1.242  
changed lines
  Added in v.1.243

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