Re: [hunchentoot-devel] Accessor Function for Form Fields

Hi--

I had something like:

(defmacro with-parameters (parameters &body body) `(let ,(mapcar (lambda (p) `(,p (hunchentoot:parameter ,(string-downcase (symbol-name p))))) parameters) ,@body))

(macroexpand-1 '(with-parameters (id title description) (format t "Id is ~A, title ~A, desc, ~A" id title description))) (LET ((ID (HUNCHENTOOT:PARAMETER "id")) (TITLE (HUNCHENTOOT:PARAMETER "title")) (DESCRIPTION (HUNCHENTOOT:PARAMETER "description"))) (FORMAT T "Id is ~A, title ~A, desc, ~A" ID TITLE DESCRIPTION))

regards

T