sexp_to_str.c

#include <stdio.h>
#include <string.h>
#include <ecl/ecl.h>

size_t
sexp_to_str(char *dest, size_t len, char *fmt, const char *exp)
{
	cl_object exp_ = c_string_to_object(exp);
	cl_object fmt_;

	fmt_ = cl_format(3, Cnil, make_constant_base_string(fmt), exp_);
	return strlcpy(dest, ecl_base_string_pointer_safe(fmt_), len);
}

int
main(int argc, char *argv[])
{
	char buf[256];
	cl_boot(argc, argv);
	sexp_to_str(buf, sizeof(buf), "hello ~a~%", "(1 2 3)");
	printf("%s", buf);
	cl_shutdown();
	return 0;
}