diff options
Diffstat (limited to 'src/app.lisp')
| -rw-r--r-- | src/app.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/app.lisp b/src/app.lisp index 14765c7..59250e3 100644 --- a/src/app.lisp +++ b/src/app.lisp @@ -56,6 +56,11 @@ functions in url parameters in endpoint definitions." `(let ((,plist-var ,plist)) (let ,bindings ,@body)))) +(defun get-checkboxes-from-body (name &optional (mapper #'object-with-uid)) + (loop :for (key val) :on (lzb:request-body) :by #'cddr + :when (string-equal key name) + :collect (funcall mapper val))) + ;;; VALIDATOR TRANSFORMS (defmacro define-id-plucker (class) |