From d3abba68fe367d18a29bd12aa320f4a57a5fe57d Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sat, 28 Mar 2026 13:59:54 -0600 Subject: loop..do cleanup --- lisp/service/messages-service.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/service/messages-service.lisp') diff --git a/lisp/service/messages-service.lisp b/lisp/service/messages-service.lisp index 18999ab..e03c04c 100644 --- a/lisp/service/messages-service.lisp +++ b/lisp/service/messages-service.lisp @@ -38,8 +38,8 @@ (id (get-user)) (string= (session-value :messages-read) "read"))))) (sanitize-rest-json instance) - (loop for result in (results instance) do - (sanitize-json result)))) + (loop for result in (results instance) + do (sanitize-json result)))) (defclass messages/mark-service (messages-service) ((location-p :initform nil)) -- cgit v1.3