diff options
| author | Mistivia <i@mistivia.com> | 2025-06-24 15:44:12 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-24 15:50:55 +0800 |
| commit | 65cd835954825568a432c2e62d8019269dcafd74 (patch) | |
| tree | 52724d76c7506e1acce6c20903ff18fbeda02c8f /tests/symbol.lisp | |
| parent | 60b8cd0df3ed844ea5c77286ac27afff5b3c9b37 (diff) | |
add list function
Diffstat (limited to 'tests/symbol.lisp')
| -rw-r--r-- | tests/symbol.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/symbol.lisp b/tests/symbol.lisp index f771272..e19c514 100644 --- a/tests/symbol.lisp +++ b/tests/symbol.lisp @@ -1,4 +1,4 @@ -(assert (eq 'a (intern "a"))) -(assert (eq (intern "ab") (intern (concat "a" "b")))) -(assert (equal "abc" (symbol->string 'abc))) -(assert (not (eq (gensym) (gensym)))) +(assert (eq? 'a (intern "a"))) +(assert (eq? (intern "ab") (intern (concat "a" "b")))) +(assert (equal? "abc" (symbol->string 'abc))) +(assert (not (eq? (gensym) (gensym)))) |