[lift-devel] Dynamic Variables?

[Vyacheslav Akhmechet]

Hello,

I have the latest asdf-installable version of Lift. I am trying the
following example:

(deftestsuite my-test-suite ()
  ()
  (:dynamic-variables
   (*foo* t)))

(defun foo ()
  (declare (special *foo*))
  *foo*)

(addtest (my-test-suite)
  some-test
  (ensure-same (foo) t))

When I run the test with (describe (run-test)) I get the following result:

Test Report for MY-TEST-SUITE: 1 test run, 1 Error.

ERROR  : my-test-suite : some-test
  Condition: The variable *FOO* is unbound.
  Code     : "
  ((ENSURE-SAME (FOO) T))"

Test Report for MY-TEST-SUITE: 1 test run, 1 Error.; No value

Why is *foo* unbound? Am I doing something wrong?