1.0.40.6: call an appropriate existing ctor from MAKE-INSTANCE (CLASS)

[sbcl.git] / contrib / sb-cltl2 / compiler-let.lisp

diff --git a/contrib/sb-cltl2/compiler-let.lisp b/contrib/sb-cltl2/compiler-let.lisp
index 6b82f8d..e7458dd 100644 (file)
--- 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))))))))