Add eval

src/list.c

@@ -17,7 +17,6 @@ intptr_t list_length(LispVal *list) {
 }
 
 bool list_length_eq(LispVal *list, intptr_t size) {
-    assert(LISTP(list));
     while (size && CONSP(list)) {
         list = XCDR(list);
         --size;
@@ -52,3 +51,11 @@ DEFUN(nreverse, "nreverse", (LispVal * list), "(list)", "") {
     }
     return rev;
 }
+
+DEFUN(listp, "listp", (LispVal * obj), "(obj)", "") {
+    return LISTP(obj) ? Qt : Qnil;
+}
+
+DEFUN(list, "list", (LispVal * args), "(&rest args)", "") {
+    return args;
+}