But since you asked I'd like to at least write code like this, which is
analagous to what I do in PHP (just less verbose):

;;;;;
(def-form name-form
  (row-field-group
    [field name
           :label "Name"
           :checker (lambda (v)
                      (if (= (string-length v) 0)
                          "~a must not be blank."))]
    [button submit
            :label "Submit"
            :action (lambda (form context)
                       (context=>form context form)
                       (let ((model (new-name-model)))
                         (and (validate-form form context)
                              (form=>model form model)
                              (save-model model)
                              (add-form-message form "Success!"))))]))
(process-form name-form)
(render-form name-form)
;;;;;

But I'm hoping that I'll discover some completely new ways to do things.