From 208275d47312542d2f47b50b118a5df741dc551b Mon Sep 17 00:00:00 2001
From: Vincent Toups <vincent.toups@gmail.com>
Date: Mon, 16 Apr 2012 12:55:46 -0400
Subject: [PATCH] added let

---
 parenlab.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/parenlab.el b/parenlab.el
index fb0aecc..b7fd2de 100644
--- a/parenlab.el
+++ b/parenlab.el
@@ -300,7 +300,6 @@ regular, non-functional if statement."
 	  (pl:transcode-sequence body)
 	  (basic-save-buffer))
 	(kill-buffer output-buffer)))
-
 (defvar *pl-macros* (make-hash-table))
 
 (defun pl:pl-macrop (symbol)
@@ -321,6 +320,9 @@ regular, non-functional if statement."
 (pl:def-pl-macro with (symbol value &body body)
 				 `(funcall (lambda (,symbol) ,@body) ,value))
 
+(pl:def-pl-macro let (bindings &body body)
+				 `(funcall (lambda ,(mapcar #'car bindings) ,@body) ,@(mapcar #'cadr bindings)))
+
 (defun-match pl:transcode ((list-rest (p #'pl:non-keyword-symbolp the-function) arguments))
   "Handle the-function calls."
   (pl:transcode the-function)