adding lisp-interpreter

2025-09-24 10:58:09 +02:00
parent ab482df604
commit d8fc7d2d67
57 changed files with 30702 additions and 5 deletions
@@ -0,0 +1,20 @@
+; try this one with read
+(let* ((file (open-input-file "big_data_gen.sexpr"))
+       (data (read file)))
+    (gc-flip)
+    (print-gc-statistics)
+    (newline)
+    (display "records: ")
+    (display (length data))
+    (newline)
+    (let ((record (car data)))
+        (assert (= (cdr (vector-assq 'index record)) 0))
+        (assert (eq? (cdr (vector-assq 'isActive record)) 'False))
+        (assert (= (cdr (vector-assq 'age record)) 21)))
+
+    (close-input-port file))
+   
+(display "done")
+(newline)
+
+