A lot of work

2026-01-19 05:57:18 -08:00
parent c7af58f674
commit c63b104bc6
12 changed files with 217 additions and 13 deletions
@@ -5,12 +5,14 @@

 int main(int argc, const char **argv) {
    lisp_init();
+    push_stack_frame(Qnil, Qnil, Qnil);
    ReadStream s;
-    const char BUF[] = "t";
+    const char BUF[] = "(a b c d e f g h i j k l m)";
    read_stream_init(&s, BUF, sizeof(BUF) - 1);
    LispVal *l = read(&s);
-    CHECK_TYPE(l, TYPE_FIXNUM);
-    printf("%d\n", l == Qt);
+    l = Ffuncall(Qmake_symbol, LISP_LITSTR("a"));
+    debug_obj_info(stdout, l);
+    pop_stack_frame();
    lisp_shutdown();
    return 0;
 }