X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=dc74c2cf9f03244ae0321d2ca5907e7f2e743b20;hb=a6a12ed609d5467ec43b411283e5b3568fee81df;hp=4687ebd12b7b34e0ad36be5d1fdefccd6866bada;hpb=a80a02aec71e15e1ae7bebd502399ab2b824d08b;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 4687ebd..dc74c2c 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -275,10 +275,7 @@
                                       else)
                                   lexenv)))
                ((let let*)
-                (destructuring-bind (definitions &rest body) (rest exp)
-                  (if (null definitions)
-                      (simple-eval-locally `(locally ,@body) lexenv)
-                      (%simple-eval exp lexenv))))
+                (%simple-eval exp lexenv))
                (t
                 (if (and (symbolp name)
                          (eq (info :function :kind name) :function))