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

9 lines
102 B
Common Lisp
Raw Blame History

(defun f (x) {
(var a 10)
(setq a 100)
(+ x a)
})
(check (= (f 1) 101))
Reference in New Issue View Git Blame Copy Permalink