Commit 31f22bee authored by pfdietz's avatar pfdietz
Browse files

Additional test in for functions returned from flet that access special variables

parent 638f50e6
......@@ -521,3 +521,16 @@
(declare (special x))
(%f))))
:good)
(deftest flet.69
(let ((*x* 0))
(declare (special *x*))
(flet ((%f (i)
#'(lambda (arg)
(declare (ignore arg))
(incf *x* i))))
(values
(mapcar (%f 1) '(a b c))
(mapcar (%f 2) '(a b c)))))
(1 2 3)
(5 7 9))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment