Add eval

2026-01-20 01:23:52 -08:00
parent 243a012d3e
commit 4c04e71078
11 changed files with 145 additions and 33 deletions
--- a/src/list.h
+++ b/src/list.h
@ -112,5 +112,12 @@ DECLARE_FUNCTION(cons, (LispVal * car, LispVal *cdr));
 DECLARE_FUNCTION(length, (LispVal * list));
 DECLARE_FUNCTION(length_eq, (LispVal * list, LispVal *length));
 DECLARE_FUNCTION(nreverse, (LispVal * list));
+DECLARE_FUNCTION(listp, (LispVal * obj));
+DECLARE_FUNCTION(list, (LispVal * args));
+static ALWAYS_INLINE void CHECK_LISTP(LispVal *obj) {
+    if (!LISTP(obj)) {
+        signal_type_error(obj, LIST(Qlist));
+    }
+}

 #endif