fix another LET*/:interpret bug

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

diff --git a/tests/full-eval.impure.lisp b/tests/full-eval.impure.lisp
index 54a9151..540e6de 100644 (file)
--- a/tests/full-eval.impure.lisp
+++ b/tests/full-eval.impure.lisp
@@ -99,3 +99,8 @@
            (x (progn (funcall *stash* :after-binding-z) 'new-x)))
       (funcall *stash* :in-body)
       (values))))
+
+(with-test (:name (let* :nested-environment-again))
+  (let* ((foo 3)
+         (foo (lambda () (typep foo 'integer))))
+    (assert (funcall foo))))