alloc_bignum alloc_bytevector alloc_string alloca_cell alloca_complex_num alloca_double alloca_empty_bytevector alloca_empty_vector alloca_pair assign_complex_num assign_double atomic BIGNUM_CALL bignum_value bn_cmp_type boolean boolean_desc boolean_f boolean_t bytevector c_opaque closure closure0 closure1 closureN complex_num_value cond_var cvar CYC_BINARY_PORT_FLAG Cyc_EOF CYC_IO_BUF_LEN Cyc_RECORD_MARKER Cyc_VOID defprimitive defsymbol double_value forward function_type inline_function_type integer_value list maclosure0 macro make_boolean make_c_opaque make_cell make_complex_num make_cvar make_double make_empty_bytevector make_empty_vector make_input_port make_pair make_port make_string make_string_noalloc make_string_with_len make_utf8_string make_utf8_string_noalloc make_utf8_string_with_len mclosure0 mclosure1 mmacro mutex object object_tag opaque_collect_ptr opaque_ptr pair prim prim_name primitive primitive_function_type quote_void return_copy set_cell_as_expr set_pair set_pair_as_expr string_len string_num_cp string_str symbol symbol_desc tag_type type_of vector

make_utf8_string #define make_utf8_string (   data,   cs,   s  ) Value: string_type cs; \ { int len = strlen(s); \ cs.hdr.mark = gc_color_red; \ cs.hdr.grayed = 0; \ cs.hdr.immutable = 0; \ cs.tag = string_tag; \ cs.num_cp = Cyc_utf8_count_code_points((uint8_t *)s); \ if (cs.num_cp < 0) { \ Cyc_rt_raise_msg(data, "Invalid UTF-8 characters in string"); \ } \ cs.len = len; \ cs.str = alloca(sizeof(char) * (len + 1)); \ memcpy(cs.str, s, len + 1);} Create a new string in the nursery