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"); |
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 |
{ |
{ |
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) |
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. */ |
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 |
|
|
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 |
|
|
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)) |
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)) |
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 |
{ |
{ |
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++) |