X-Git-Url: http://git.kpe.io/?p=wol.git;a=blobdiff_plain;f=genpage.lisp;h=4b1dbf44861f24ee43ce04e9593a6e39bb229b92;hp=9e34467e5744f30facdeead1ee3ba05ad19091c8;hb=97e14ef9a350c61c9891c1d43aab815c574c1ce6;hpb=1fa7614ba895d7a1bccd310cf9d8e8e1e2472d14 diff --git a/genpage.lisp b/genpage.lisp index 9e34467..4b1dbf4 100644 --- a/genpage.lisp +++ b/genpage.lisp @@ -105,14 +105,10 @@ (when title-str (html (:title (lml-write-string title-str))))))) -(defvar +std-entities+ " - -") - (defun page-prologue (title format css altcss) (ecase format (:xml - (dtd-prologue format :entities +std-entities+) + (dtd-prologue format) (lml-format "~%" (aif css it "http://b9.com/umlsxml.css")) (lml-write-string "") @@ -127,7 +123,7 @@ (lml-write-string "")) ((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset) - (dtd-prologue format :entities +std-entities+) + (dtd-prologue format) (lml-write-string "") (ml-head title (aif css it "http://b9.com/main.css") altcss)