/[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.169 by rms, Thu Nov 1 20:48:30 2001 UTC revision 1.170 by pj, Fri Nov 2 20:23:55 2001 UTC
# Line 690  ALIASED nil means remove the alias; SYMB Line 690  ALIASED nil means remove the alias; SYMB
690  {  {
691    struct Lisp_Symbol *sym;    struct Lisp_Symbol *sym;
692        
693    CHECK_SYMBOL (symbol, 0);    CHECK_SYMBOL (symbol);
694    CHECK_SYMBOL (aliased, 1);    CHECK_SYMBOL (aliased);
695    
696    if (SYMBOL_CONSTANT_P (symbol))    if (SYMBOL_CONSTANT_P (symbol))
697      error ("Cannot make a constant an alias");      error ("Cannot make a constant an alias");
# Line 1215  usage: (condition-case VAR BODYFORM HAND Line 1215  usage: (condition-case VAR BODYFORM HAND
1215    var      = Fcar (args);    var      = Fcar (args);
1216    bodyform = Fcar (Fcdr (args));    bodyform = Fcar (Fcdr (args));
1217    handlers = Fcdr (Fcdr (args));    handlers = Fcdr (Fcdr (args));
1218    CHECK_SYMBOL (var, 0);    CHECK_SYMBOL (var);
1219    
1220    for (val = handlers; ! NILP (val); val = Fcdr (val))    for (val = handlers; ! NILP (val); val = Fcdr (val))
1221      {      {
# Line 1825  this does nothing and returns nil.  */) Line 1825  this does nothing and returns nil.  */)
1825    Lisp_Object args[4];    Lisp_Object args[4];
1826  #endif  #endif
1827    
1828    CHECK_SYMBOL (function, 0);    CHECK_SYMBOL (function);
1829    CHECK_STRING (file, 1);    CHECK_STRING (file);
1830    
1831    /* If function is defined and not as an autoload, don't override */    /* If function is defined and not as an autoload, don't override */
1832    if (!EQ (XSYMBOL (function)->function, Qunbound)    if (!EQ (XSYMBOL (function)->function, Qunbound)
# Line 1888  do_autoload (fundef, funname) Line 1888  do_autoload (fundef, funname)
1888    struct gcpro gcpro1, gcpro2, gcpro3;    struct gcpro gcpro1, gcpro2, gcpro3;
1889    
1890    fun = funname;    fun = funname;
1891    CHECK_SYMBOL (funname, 0);    CHECK_SYMBOL (funname);
1892    GCPRO3 (fun, funname, fundef);    GCPRO3 (fun, funname, fundef);
1893    
1894    /* Preserve the match data.  */    /* Preserve the match data.  */
# Line 2158  usage: (apply FUNCTION &rest ARGUMENTS) Line 2158  usage: (apply FUNCTION &rest ARGUMENTS)
2158    fun = args [0];    fun = args [0];
2159    funcall_args = 0;    funcall_args = 0;
2160    spread_arg = args [nargs - 1];    spread_arg = args [nargs - 1];
2161    CHECK_LIST (spread_arg, nargs);    CHECK_LIST (spread_arg);
2162        
2163    numargs = XINT (Flength (spread_arg));    numargs = XINT (Flength (spread_arg));
2164    
# Line 2960  specbind (symbol, value) Line 2960  specbind (symbol, value)
2960    Lisp_Object ovalue;    Lisp_Object ovalue;
2961    Lisp_Object valcontents;    Lisp_Object valcontents;
2962    
2963    CHECK_SYMBOL (symbol, 0);    CHECK_SYMBOL (symbol);
2964    if (specpdl_ptr == specpdl + specpdl_size)    if (specpdl_ptr == specpdl + specpdl_size)
2965      grow_specpdl ();      grow_specpdl ();
2966    
# Line 3117  top_level_value (symbol) Line 3117  top_level_value (symbol)
3117  {  {
3118    register struct specbinding *ptr = specpdl;    register struct specbinding *ptr = specpdl;
3119    
3120    CHECK_SYMBOL (symbol, 0);    CHECK_SYMBOL (symbol);
3121    for (; ptr != specpdl_ptr; ptr++)    for (; ptr != specpdl_ptr; ptr++)
3122      {      {
3123        if (EQ (ptr->symbol, symbol))        if (EQ (ptr->symbol, symbol))
# Line 3132  top_level_set (symbol, newval) Line 3132  top_level_set (symbol, newval)
3132  {  {
3133    register struct specbinding *ptr = specpdl;    register struct specbinding *ptr = specpdl;
3134    
3135    CHECK_SYMBOL (symbol, 0);    CHECK_SYMBOL (symbol);
3136    for (; ptr != specpdl_ptr; ptr++)    for (; ptr != specpdl_ptr; ptr++)
3137      {      {
3138        if (EQ (ptr->symbol, symbol))        if (EQ (ptr->symbol, symbol))
# Line 3155  The debugger is entered when that frame Line 3155  The debugger is entered when that frame
3155    register struct backtrace *backlist = backtrace_list;    register struct backtrace *backlist = backtrace_list;
3156    register int i;    register int i;
3157    
3158    CHECK_NUMBER (level, 0);    CHECK_NUMBER (level);
3159    
3160    for (i = 0; backlist && i < XINT (level); i++)    for (i = 0; backlist && i < XINT (level); i++)
3161      {      {
# Line 3243  If NFRAMES is more than the number of fr Line 3243  If NFRAMES is more than the number of fr
3243    register int i;    register int i;
3244    Lisp_Object tem;    Lisp_Object tem;
3245    
3246    CHECK_NATNUM (nframes, 0);    CHECK_NATNUM (nframes);
3247    
3248    /* Find the frame requested.  */    /* Find the frame requested.  */
3249    for (i = 0; backlist && i < XFASTINT (nframes); i++)    for (i = 0; backlist && i < XFASTINT (nframes); i++)

Legend:
Removed from v.1.169  
changed lines
  Added in v.1.170

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