From 93296a3dc1109efc6de26487b819631ebe6b9584 Mon Sep 17 00:00:00 2001
From: Vladimir Sedach <vsedach@gmail.com>
Date: Mon, 2 Feb 2009 18:14:32 -0700
Subject: [PATCH] Changed let to not introduce any extra variables (for
 parallel binding) when only one variable is being bound.

---
 src/special-forms.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/special-forms.lisp b/src/special-forms.lisp
index ab4084e..e525e8e 100644
--- a/src/special-forms.lisp
+++ b/src/special-forms.lisp
@@ -608,7 +608,7 @@ lambda-list::=
   `(simple-let* ,bindings ,@body))
 
 (defpsmacro let (bindings &body body)
-  `(simple-let ,bindings ,@body))
+  `(,(if (= 1 (length bindings)) 'simple-let* 'simple-let) ,bindings ,@body))
 
 (define-ps-special-form let1 (expecting binding &rest body)
   (ecase expecting
-- 
2.20.1