summaryrefslogtreecommitdiff
path: root/shtml.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'shtml.lisp')
-rw-r--r--shtml.lisp4
1 files changed, 2 insertions, 2 deletions
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~^ ~}</~a>"
+ (format nil "<~a~{ ~a=~s~}>~{~a~}</~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 "<!DOCTYPE html><~a~{ ~a=~s~}>~{~a~^ ~}</~a>"
+ (format nil "<!DOCTYPE html><~a~{ ~a=~s~}>~{~a~}</~a>"
,,tag-name
(trim-flatten-assoc ,',attrs-and-values)
,body