From 92efd155febdaf7e44300f031502b6d0c8a03c54 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sun, 7 Aug 2022 19:04:53 -0300 Subject: Remove extraneous separator inside tag body --- shtml.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'shtml.lisp') diff --git a/shtml.lisp b/shtml.lisp index b20ece7..17bc96a 100644 --- a/shtml.lisp +++ b/shtml.lisp @@ -52,7 +52,7 @@ (let ((body (gensym)) (parsed-args (separate-keys ,args))) `((lambda (,body &key ,@',attrs) - (format nil "<~a~{ ~a=~s~}>~{~a~^ ~}" + (format nil "<~a~{ ~a=~s~}>~{~a~}" ,,tag-name (trim-flatten-assoc ,',attrs-and-values) ,body @@ -70,7 +70,7 @@ (let ((body (gensym)) (parsed-args (separate-keys ,args))) `((lambda (,body &key ,@',attrs) - (format nil "<~a~{ ~a=~s~}>~{~a~^ ~}" + (format nil "<~a~{ ~a=~s~}>~{~a~}" ,,tag-name (trim-flatten-assoc ,',attrs-and-values) ,body -- cgit v1.2.3