X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffull-eval.impure.lisp;h=540e6de4561ef8a786b545ea4d5f034cecd130dd;hb=5eb98a1de601302b0e3eb0c385262fca9093fcc0;hp=54a91518580a97196314ecab2810a71968078ba7;hpb=1c0ce8a24b12334a9eb7908ad72d329394d537c7;p=sbcl.git

diff --git a/tests/full-eval.impure.lisp b/tests/full-eval.impure.lisp
index 54a9151..540e6de 100644
--- 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))))