diff options
| author | colin <colin@cicadas.surf> | 2023-04-01 18:04:45 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-04-01 18:04:45 -0700 |
| commit | 2b6e1eec2bf5c27223fbf2d09cd10a322fc09909 (patch) | |
| tree | d26e6b1b945864bcde8ecb9b2cb7cb1caf277d29 /src/app.lisp | |
| parent | a73b31c1ca88d0cba7365e648e3da70c4124f27e (diff) | |
Add: I dunno. lots of little thingsmini-marathon
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) |