Index: lang/c/misc/mlisp/core/m_basic.cpp
===================================================================
--- lang/c/misc/mlisp/core/m_basic.cpp (revision 12283)
+++ lang/c/misc/mlisp/core/m_basic.cpp (revision 12358)
@@ -245,4 +245,11 @@
 }
 
+static SExp builtin_gensym() {
+	static int cnt;
+	char buf[16];
+	sprintf(buf, "G:%d", ++cnt);
+	return intern(buf);
+}
+
 
 
@@ -331,4 +338,6 @@
 		{	"compile",	builtin_compile,	1,	1,	},
 		{	"exit",		builtin_exit,		0,	1,	},
+
+		{	"gensym",	builtin_gensym,		0,	0,	},
 	};
 	for (int i=0; i<sizeof(tbl)/sizeof(*tbl); ++i) {