diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-03-28 13:59:54 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-03-28 13:59:54 -0600 |
| commit | d3abba68fe367d18a29bd12aa320f4a57a5fe57d (patch) | |
| tree | f6c7f722d5a10af36b14ba6561bc3f9852fd541b /lisp/service/users-service.lisp | |
| parent | 7d523da5d7defbf68a07f746a0d75ea18960267c (diff) | |
loop..do cleanup
Diffstat (limited to 'lisp/service/users-service.lisp')
| -rw-r--r-- | lisp/service/users-service.lisp | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/service/users-service.lisp b/lisp/service/users-service.lisp index fa56c53..5b16d46 100644 --- a/lisp/service/users-service.lisp +++ b/lisp/service/users-service.lisp @@ -26,8 +26,8 @@ (let ((auth-pkg (make-instance 'auth-pkg))) (setf (users instance) (get-all-users auth-pkg)))) (sanitize-rest-json instance) - (loop for user in (users instance) do - (sanitize-json user)))) + (loop for user in (users instance) + do (sanitize-json user)))) (defclass users/add-service (users/view-service) ((form :initarg :form @@ -69,8 +69,8 @@ (with-auth (instance users/add-service "users-modify") (with-bogenherr-database (let ((registration (make-instance 'registration))) - (loop for param in (sb-introspect:function-lambda-list #'users-add-submit-json) do - (setf (slot-value registration param) (symbol-value param))) + (loop for param in (sb-introspect:function-lambda-list #'users-add-submit-json) + do (setf (slot-value registration param) (symbol-value param))) (let* ((auth-pkg (make-instance 'auth-pkg)) (id (insert-registration auth-pkg registration))) (setf registration (get-registration-by-id auth-pkg id))) @@ -185,10 +185,10 @@ (progn (loop for role-group in (union '("profile-admin") (cl-ppcre:split "\\|" (role_groups registration)) - :test 'string=) do - (insert-user-role-group auth-pkg (make-instance 'user-role - :user_id (id user) - :role_group_name role-group))) + :test 'string=) + do (insert-user-role-group auth-pkg (make-instance 'user-role + :user_id (id user) + :role_group_name role-group))) (delete-registration auth-pkg hash) (setf (session-value :message) "Registration completed successfully.")) (setf (session-value :errormsg) "Error while completing registration."))) @@ -238,10 +238,10 @@ (delete-role-groups auth-pkg user) (loop for role-group in (union '("profile-admin") (cl-ppcre:split "\\|" role_groups) - :test 'string=) do - (insert-user-role-group auth-pkg (make-instance 'user-role - :user_id (id user) - :role_group_name role-group))) + :test 'string=) + do (insert-user-role-group auth-pkg (make-instance 'user-role + :user_id (id user) + :role_group_name role-group))) (setf (session-value :message) "User saved successfully.")) (setf (session-value :errormsg) "An error occured.")))))) |