rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
bldc/tests/test_atomic_2.lisp

8 lines
177 B
Common Lisp
Raw Blame History

(define foo (lambda ()
(atomic (+ 1 2 3)
(+ 1 2 4)
(+ 2 4 8)
(+ 3 6 12))))
(check (= (foo) 21))
Reference in New Issue View Git Blame Copy Permalink