bldc/tests/test_lambda_9.lisp

10 lines
225 B
Common Lisp

(define f (lambda ()
(let ((a 1))
(let ((b 2))
(lambda (x)
(let ((b a))
(let ((c 3))
(+ x b))))))))
(check (= ((f) 1) 2))