diff options
Diffstat (limited to 'src/render.lisp')
-rw-r--r-- | src/render.lisp | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/render.lisp b/src/render.lisp index 140e1ec..71f07b4 100644 --- a/src/render.lisp +++ b/src/render.lisp @@ -14,10 +14,12 @@ be a keyword for usin in EQL method specializers.")) (defmacro with-page ((&key title) &body body) "A helper macro fordefining some standard page boilerplate." - `(with-html-string - (:doctype) - (:html - (:head - (:title ,title)) - (:body - ,@body)))) + (let ((title-var (gensym))) + `(let ((,title-var ,title)) + (with-html-string + (:doctype) + (:html + (:head + (:title ,title-var)) + (:body + ,@body)))))) |