(bind-func static simple_constructor
(lambda (instance:godot_object* method_data:i8*)
(printf "XTL simple_constructor -> instance:%p method_data:%p\n" (cast instance i8*) method_data)
(let ((user_data:i8* (godot_alloc 256)))
(strcpy user_data "Hello From Extempore!")
user_data)))