ecltest.c

#include <stdio.h>
#include <stdlib.h>

#include "ecl/ecl.h"

cl_object foo() {
    return ecl_make_integer(42);
}

cl_object bar(cl_object x) {
  int lx = fixint(x) * 42;
  return ecl_make_int(lx);
}

int main(int argc, char* argv[]) {
  char* lisp_args[] = {
    argv[0],
    NULL
  };
  cl_boot(1, lisp_args);
  
  atexit(cl_shutdown);
  cl_object exit_obj = c_string_to_object(":EXIT");
  cl_object result = Cnil;

  ecl_def_c_function(c_string_to_object("foo"), (cl_objectfn_fixed)foo, 0);
  ecl_def_c_function(c_string_to_object("bar"), (cl_objectfn_fixed)bar, 1);
  
  while (cl_equal(exit_obj, result) == Cnil) {
    printf("\n> ");
    fflush(stdout);
    cl_object form = cl_safe_eval(c_string_to_object("(read)"), Cnil, Cnil);
    result = cl_safe_eval(form, Cnil, Cnil);
    cl_print(1, result);
  }
  putchar('\n');

  return 0;
}