diff options
-rw-r--r-- | shtml.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |