path: root/tests/symbol.lisp

(assert (eq 'a (intern "a")))
(assert (eq (intern "ab") (intern (concat "a" "b"))))
(assert (equal "abc" (symbol->string 'abc)))
(assert (not (eq (gensym) (gensym))))