310 |
tm->tm_nfree -= n; |
tm->tm_nfree -= n; |
311 |
tm->tm_nused += n; |
tm->tm_nused += n; |
312 |
while (--n) { |
while (--n) { |
313 |
set_type_of(tail,t_cons); |
set_type_of(tail,t_cons);/*FIXME try removing this*/ |
|
make_unfree(tail); |
|
314 |
tail->c.c_cdr=OBJ_LINK(tail); |
tail->c.c_cdr=OBJ_LINK(tail); |
315 |
tail->c.c_car=va_arg(ap,object); |
tail->c.c_car=va_arg(ap,object); |
316 |
tail=tail->c.c_cdr; |
tail=tail->c.c_cdr; |
317 |
} |
} |
318 |
tm->tm_free=OBJ_LINK(tail); |
tm->tm_free=OBJ_LINK(tail); |
319 |
set_type_of(tail,t_cons); |
set_type_of(tail,t_cons);/*FIXME try removing this*/ |
|
make_unfree(tail); |
|
320 |
tail->c.c_car=va_arg(ap,object); |
tail->c.c_car=va_arg(ap,object); |
321 |
tail->c.c_cdr=Cnil; |
tail->c.c_cdr=Cnil; |
322 |
|
|