(define dos_qvariantarray_create
  (foreign-lambda* scheme-object ((int size)
                                  (pointer-vector data))
    "DosQVariantArray qva = {.size = size, .data = data};"
    "C_word* ptr = C_alloc(4);"
    "int struct_size = C_SIZEOF_STRUCT(3);"
    "C_return(C_structure(&ptr, struct_size, qva));"))