cl: Phase 2 eval — 127 tests, 299 total green

lib/common-lisp/eval.sx: cl-eval-ast implementing quote, if, progn,
let/let*, flet, labels, setq/setf, function, lambda, the, locally,
eval-when, defun, defvar/defparameter/defconstant, built-in arithmetic
(+/-/*//, min/max/abs/evenp/oddp), comparisons, predicates, list ops,
string ops, funcall/apply/mapcar.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

lib/common-lisp/tests/parse.sx

@@ -4,12 +4,49 @@
 (define cl-test-fail 0)
 (define cl-test-fails (list))
 
+(define
+  cl-deep=
+  (fn
+    (a b)
+    (cond
+      ((= a b) true)
+      ((and (dict? a) (dict? b))
+        (let
+          ((ak (keys a)) (bk (keys b)))
+          (if
+            (not (= (len ak) (len bk)))
+            false
+            (every?
+              (fn (k) (and (has-key? b k) (cl-deep= (get a k) (get b k))))
+              ak))))
+      ((and (list? a) (list? b))
+        (if
+          (not (= (len a) (len b)))
+          false
+          (let
+            ((i 0) (ok true))
+            (define
+              chk
+              (fn
+                ()
+                (when
+                  (and ok (< i (len a)))
+                  (do
+                    (when
+                      (not (cl-deep= (nth a i) (nth b i)))
+                      (set! ok false))
+                    (set! i (+ i 1))
+                    (chk)))))
+            (chk)
+            ok)))
+      (:else false))))
+
 (define
   cl-test
   (fn
     (name actual expected)
     (if
-      (= actual expected)
+      (cl-deep= actual expected)
       (set! cl-test-pass (+ cl-test-pass 1))
       (do
         (set! cl-test-fail (+ cl-test-fail 1))
@@ -35,9 +72,9 @@
 (cl-test "ratio: value" (get (cl-read "1/3") "value") "1/3")
 (cl-test "ratio: 22/7" (get (cl-read "22/7") "value") "22/7")
 
-(cl-test "string: basic" (cl-read "\"hello\"") "hello")
-(cl-test "string: empty" (cl-read "\"\"") "")
-(cl-test "string: with escape" (cl-read "\"a\\nb\"") "a\nb")
+(cl-test "string: basic" (cl-read "\"hello\"") {:cl-type "string" :value "hello"})
+(cl-test "string: empty" (cl-read "\"\"") {:cl-type "string" :value ""})
+(cl-test "string: with escape" (cl-read "\"a\\nb\"") {:cl-type "string" :value "a\nb"})
 
 (cl-test "symbol: foo" (cl-read "foo") "FOO")
 (cl-test "symbol: BAR" (cl-read "BAR") "BAR")
@@ -68,7 +105,7 @@
 (cl-test "list: two elements" (cl-read "(foo bar)") (list "FOO" "BAR"))
 (cl-test "list: nested" (cl-read "((a b) c)") (list (list "A" "B") "C"))
 (cl-test "list: with integer" (cl-read "(+ 1 2)") (list "+" 1 2))
-(cl-test "list: with string" (cl-read "(print \"hi\")") (list "PRINT" "hi"))
+(cl-test "list: with string" (cl-read "(print \"hi\")") (list "PRINT" {:cl-type "string" :value "hi"}))
 (cl-test "list: nil element" (cl-read "(a nil b)") (list "A" nil "B"))
 (cl-test "list: t element" (cl-read "(a t b)") (list "A" true "B"))
 
@@ -93,7 +130,7 @@
 (cl-test "vector: type" (get (cl-read "#(1 2 3)") "cl-type") "vector")
 (cl-test "vector: elements" (get (cl-read "#(1 2 3)") "elements") (list 1 2 3))
 (cl-test "vector: empty" (get (cl-read "#()") "elements") (list))
-(cl-test "vector: mixed" (get (cl-read "#(a 1 \"s\")") "elements") (list "A" 1 "s"))
+(cl-test "vector: mixed" (get (cl-read "#(a 1 \"s\")") "elements") (list "A" 1 {:cl-type "string" :value "s"}))
 
 ;; ── cl-read-all ───────────────────────────────────────────────────