X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=genpage.lisp;h=4b1dbf44861f24ee43ce04e9593a6e39bb229b92;hb=ba01a7216c7a4c15c103525654fe10ea5845afb1;hp=9e34467e5744f30facdeead1ee3ba05ad19091c8;hpb=1fa7614ba895d7a1bccd310cf9d8e8e1e2472d14;p=wol.git 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)