bldc/tests/test_setvar_let_0.lisp

11 lines
129 B
Common Lisp

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