Format

2024-10-03 10:28:59 +09:00 · 2024-10-03 10:28:59 +09:00 · bc2bc378c7
commit bc2bc378c7
parent 8c539dc879
1 changed files with 10 additions and 9 deletions
--- a/src/utils.lisp
+++ b/src/utils.lisp
@ -46,8 +46,9 @@
 (defun minify (input-string)
  (with-output-to-string (out)
    (let ((previous-space-p nil))
-      (loop for char across input-string do
-               (cond
+      (loop
+        :for char :across input-string
+        :do (cond
              ((whitespace-p char)
               (unless previous-space-p
                 (write-char #\Space out))