0.9.10.9:

[sbcl.git] / tests / eval.impure.lisp

diff --git a/tests/eval.impure.lisp b/tests/eval.impure.lisp
index bf6141d..3708433 100644 (file)
--- a/tests/eval.impure.lisp
+++ b/tests/eval.impure.lisp
@@ -128,8 +128,8 @@
                      '(x)
                      '(1)
                    (1+ x))              t         2)
-               ((progv '(x) '(t)
-                  (if x 1 2))          t         1)
+                ((progv '(x) '(t)
+                   (if x 1 2))          t         1)
                 ((unwind-protect 1 nil) t         1)
                 ((unwind-protect 1
                    (xxx))               nil)