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 | 
