paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Format

Browse source
This commit is contained in:
paku 2024-10-03 10:28:59 +09:00
parent 8c539dc879
commit bc2bc378c7
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/utils.lisp
View file

@ -46,8 +46,9 @@
(defun minify (input-string) (defun minify (input-string)
(with-output-to-string (out) (with-output-to-string (out)
(let ((previous-space-p nil)) (let ((previous-space-p nil))
(loop for char across input-string do (loop
(cond :for char :across input-string
:do (cond
((whitespace-p char) ((whitespace-p char)
(unless previous-space-p (unless previous-space-p
(write-char #\Space out)) (write-char #\Space out))