l_object exit_obj = c_string_to_object(":EXIT");
			cl_object result = Cnil;
			while (cl_equal(exit_obj, result) == Cnil) {
				printf("\nKCNS-ECL> ");
				cl_object form = Lisp->eval("(read)");
				result = cl_safe_eval(form, Cnil, Cnil);
				cl_print(1, result);