Update of /project/defdoc/cvsroot/DefDoc/src/layout In directory common-lisp.net:/tmp/cvs-serv14849
Modified Files: html-engine.lisp Log Message: oops, don't output "-" when there is no subtitle
Date: Sun Feb 15 00:35:04 2004 Author: rjain
Index: DefDoc/src/layout/html-engine.lisp diff -u DefDoc/src/layout/html-engine.lisp:1.4 DefDoc/src/layout/html-engine.lisp:1.5 --- DefDoc/src/layout/html-engine.lisp:1.4 Sun Feb 15 00:20:53 2004 +++ DefDoc/src/layout/html-engine.lisp Sun Feb 15 00:35:04 2004 @@ -235,8 +235,9 @@ (with-html-block+ (1 :mandatory :HEAD) (with-html-block (:TITLE) (convert-to-text *document-title*) - (write-string " - " *html-stream*) - (convert-to-text *document-subtitle*)) + (when *document-subtitle* + (write-string " - " *html-stream*) + (convert-to-text *document-subtitle*))) (dolist (element *html-head-elements*) (pprint-newline :linear *html-stream*) (write-html-tag* element)))