76 |
lambda_bind(object *arg_top) |
lambda_bind(object *arg_top) |
77 |
{ |
{ |
78 |
|
|
79 |
object endp_temp,temporary; |
object temporary; |
80 |
object lambda, lambda_list, body, form=Cnil, x, ds, vs, v; |
object lambda, lambda_list, body, form=Cnil, x, ds, vs, v; |
81 |
int narg, i, j; |
int narg, i, j; |
82 |
object *base = vs_base; |
object *base = vs_base; |
612 |
find_special(object body, struct bind_temp *start, struct bind_temp *end) |
find_special(object body, struct bind_temp *start, struct bind_temp *end) |
613 |
{ |
{ |
614 |
object temporary; |
object temporary; |
|
object endp_temp; |
|
615 |
object form=Cnil; |
object form=Cnil; |
616 |
object ds, vs, v; |
object ds, vs, v; |
617 |
struct bind_temp *bt; |
struct bind_temp *bt; |
812 |
void |
void |
813 |
check_other_key(object l, int n, ...) |
check_other_key(object l, int n, ...) |
814 |
{ |
{ |
|
object endp_temp; |
|
815 |
va_list ap; |
va_list ap; |
816 |
object other_key = OBJNULL; |
object other_key = OBJNULL; |
817 |
object k; |
object k; |