mirror of https://github.com/rusefi/bldc.git
5 lines
103 B
Common Lisp
5 lines
103 B
Common Lisp
|
(def prg "(defun test (x) (cond ((= x 1) 1) (t 2))) (test 1)")
|
||
|
|
||
|
|
||
|
(check (= (read-eval-program prg) 1))
|