Plaster
New
List
Login
c++src
default
anonymous
2019.01.30 16:45:25
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);
Raw
Annotate
Repaste
Edit