Reader

src/main.c

@@ -1,6 +1,19 @@
+#include "lisp.h"
+#include "read.h"
+
 #include <stdio.h>
 
 int main(int argc, const char **argv) {
-    printf("Hello World\n");
+    lisp_init();
+    ReadStream s;
+    const char BUF[] = "`(1 . ,2)";
+    read_stream_init(&s, BUF, sizeof(BUF) - 1);
+    LispVal *l = read(&s);
+    if (!l) {
+        printf("EOF\n");
+    } else {
+        debug_obj_info(stdout, l);
+    }
+    lisp_shutdown();
     return 0;
 }