/[gcl]/gcl/o/list.d
ViewVC logotype

Diff of /gcl/o/list.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by camm, Tue Jun 14 14:34:37 2005 UTC revision 1.28 by camm, Tue Jun 14 22:38:26 2005 UTC
# Line 310  object list(fixnum n,...) { Line 310  object list(fixnum n,...) {
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            

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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