1 (in-package #:lift-test
)
5 (deftestsuite test-dynamic-variables
(lift-test)
8 (deftestsuite test-dynamic-variables-1
(test-dynamic-variables)
10 (:dynamic-variables
(*a
* 2))
11 (:test
(test-1 (ensure-same *a
* 2))))
13 (deftestsuite test-dynamic-variables-2
(test-dynamic-variables)
15 (:test
(test-1 (ensure-same *a
* 1)))
16 (:test
(test-2 (ensure *a
*))))