added let-parameters

2 files changed, 15 insertions, 1 deletions

diff --git a/lazybones.lisp b/lazybones.lisp
index c04e1e4..2b28be7 100644
--- a/lazybones.lisp
+++ b/lazybones.lisp
@@ -364,7 +364,20 @@ making a new one if not."
   `(defendpoint ,(default-app-name) ,method ,route ,options ,@body))
 
 
-;;; utilities
+
+
+;;; ENDPOINT HANDLING UTILITIES
+
+(defmacro let-parameters ((&rest names) &body body)
+  "NAMES is a list of symbols. Binds the names to the value of the
+request parameters whose keys compare string-equal to the symbol-name
+of each NAME, or NIL if there is no such parameter."
+  (let ((params (gensym)))
+    `(let ((,params (lazybones:request-parameters)))
+      (let ,(loop for name in names
+                  for string-name = (symbol-name name) 
+                  collect `(,name (cdr (assoc ,string-name ,params :test #'string-equal))))
+        ,@body))))
 
 (defun http-ok (content)
   "Content should be a string, a byte-vector, or a pathname to a local
diff --git a/package.lisp b/package.lisp
index 22de31b..64b0649 100644
--- a/package.lisp
+++ b/package.lisp
@@ -51,6 +51,7 @@
    #:defendpoint
    #:defendpoint*
    #:endpoint
+   #:let-parameters
    #:http-err
    #:http-ok
    #:http-respond