bldc/tests/test_setvar_let_1.lisp

10 lines
124 B
Common Lisp

(define q 10)
(define b (let ((a 2))
(progn
(setvar 'a q)
a)))
(check (= b 10))