bldc/tests/test_setq_6.lisp

9 lines
80 B
Common Lisp

(define f (lambda (x) (+ x 1)))
{
(var a 10)
(setq a (f 1))
(check (= a 2))
}