X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=8f0d970640cbb434e3dae6c69b4b5518460718cf;hb=1acfa21e0796f5d72d776b0fd53645813d5f2d98;hp=f09a9c3015facf235cd17e5879c3579511e31258;hpb=22e18896b53b0af44b1e18f885c943f6c3e50d01;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index f09a9c3..8f0d970 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -231,6 +231,11 @@
                                       then
                                       else)
                                   lexenv)))
+               ((let let*)
+                (destructuring-bind (definitions &rest body) (rest exp)
+                  (if (null definitions)
+                      (eval-locally `(locally ,@body) lexenv)
+                      (%eval exp lexenv))))
                (t
                 (if (and (symbolp name)
                          (eq (info :function :kind name) :function))