◆ load_varargs

#define load_varargs	(	var,
		arg_var,
		count
	)

Value:

list var = (count > 0) ? alloca(sizeof(pair_type)*count) : NULL; \
  { \
    int i; \
    object tmp; \
    va_list va; \
    if (count > 0) { \
      va_start(va, arg_var); \
      for (i = 0; i < count; i++) { \
        if (i) { \
            tmp = va_arg(va, object); \
        } else { \
            tmp = arg_var; \
        } \
        var[i].hdr.mark = gc_color_red; \
        var[i].hdr.grayed = 0; \
        var[i].tag = pair_tag; \
        var[i].pair_car = tmp; \
        var[i].pair_cdr = (i == (count-1)) ? NULL : &var[i + 1]; \
      } \
      va_end(va); \
    } \
  }