X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_string.c;h=1ab569332cc378a05d24a2dac63f865d2bb81d8c;hb=75f07353a4fad170ac1cc6af98ed1aad7d1c0c88;hp=87024271d2553080178d2eedfd86b8296bcbf2ee;hpb=eabd97e4b1a9d34416455b0fceb14a9a480c63a4;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c
index 87024271..1ab56933 100644
--- a/src/lisp/ao_lisp_string.c
+++ b/src/lisp/ao_lisp_string.c
@@ -43,6 +43,18 @@ ao_lisp_string_new(int len) {
 	return a;
 }
 
+char *
+ao_lisp_string_copy(char *a)
+{
+	int	alen = strlen(a);
+
+	char	*r = ao_lisp_alloc(alen + 1);
+	if (!r)
+		return NULL;
+	strcpy(r, a);
+	return r;
+}
+
 char *
 ao_lisp_string_cat(char *a, char *b)
 {