249 |
|
|
250 |
|
|
251 |
object |
object |
252 |
make_function(char *s, void (*f)()) |
make_function_internal(char *s, void (*f)()) |
253 |
{ |
{ |
254 |
object x; |
object x; |
255 |
vs_mark; |
vs_mark; |
263 |
} |
} |
264 |
|
|
265 |
object |
object |
266 |
make_si_sfun(char *s, object (*f) (), int argd) { |
make_si_sfun_internal(char *s, object (*f) (), int argd) { |
267 |
object x= make_si_ordinary(s); |
object x= make_si_ordinary(s); |
268 |
x->s.s_gfdef = make_sfun( x,f,argd, Cnil); |
x->s.s_gfdef = make_sfun( x,f,argd, Cnil); |
269 |
x->s.s_mflag = FALSE; |
x->s.s_mflag = FALSE; |
280 |
|
|
281 |
|
|
282 |
object |
object |
283 |
make_si_function(char *s, void (*f)()) |
make_si_function_internal(char *s, void (*f)()) |
284 |
{ |
{ |
285 |
object x; |
object x; |
286 |
vs_mark; |
vs_mark; |
297 |
|
|
298 |
|
|
299 |
object |
object |
300 |
make_special_form(char *s, void (*f)()) |
make_special_form_internal(char *s, void (*f)()) |
301 |
{ |
{ |
302 |
object x; |
object x; |
303 |
x = make_ordinary(s); |
x = make_ordinary(s); |