Added with-query-args' as the equivalent of with-form-data' for

query url requests.  This is probably a stop-gap measure, until a more
general context processing framework (including session and validation
data) has been designed and implemented.

src/main/resource.cl

@@ -85,6 +85,19 @@
 		   (let ,bindings
 		     ,@body)))))
 
+(defmacro with-query-args (vars request &body body)
+  (loop with data-sym = (gensym)
+	for var in vars
+	collect
+	`(,var (cdr (assoc (symbol-name ',var) ,data-sym
+		           :test #'string-equal)))
+	into bindings
+	finally
+	(return
+	  `(let ((,data-sym (url-query-arguments (request-url ,request))))
+	     (let ,bindings
+	       ,@body)))))
+
 ;;; Some further utility resources
 
 ;;; Redirection

src/package.cl

@@ -202,6 +202,7 @@
    #:dynamic-form-resource-processor
    #:parse-form-data
    #:with-form-data
+   #:with-query-args
    #:redirector-resource
    #:redirector-resource-code
    #:redirector-resource-destination