X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-cltl2%2Fcompiler-let.lisp;h=e7458dde4bf9f40b68eb09113b27a363c0eb9199;hb=37d3828773e2f847bb1ed7522b0af4fb8e736fc8;hp=6b82f8dea9b073be571825fbfd1a3e797894909c;hpb=970dd272dc84f7420252eadb4829cc193f795716;p=sbcl.git

diff --git a/contrib/sb-cltl2/compiler-let.lisp b/contrib/sb-cltl2/compiler-let.lisp
index 6b82f8d..e7458dd 100644
--- a/contrib/sb-cltl2/compiler-let.lisp
+++ b/contrib/sb-cltl2/compiler-let.lisp
@@ -44,6 +44,6 @@
                 finally (return
                           (let ((new-env (sb-eval::make-env
                                           :parent env
-                                          :vars (sb-eval::special-bindings vars))))
+                                          :vars (sb-eval::special-bindings vars env))))
                             (progv vars values
                               (sb-eval::eval-progn body new-env))))))))