bldc/tests/test_atomic_var_0.lisp

9 lines
91 B
Common Lisp

(def r (atomic
(var a 10)
(var b 20)
(+ a b)))
(check (= r 30))