Type errors

src/main.c

@@ -9,6 +9,7 @@ int main(int argc, const char **argv) {
     const char BUF[] = "t";
     read_stream_init(&s, BUF, sizeof(BUF) - 1);
     LispVal *l = read(&s);
+    CHECK_TYPE(l, TYPE_FIXNUM);
     printf("%d\n", l == Qt);
     lisp_shutdown();
     return 0;