[defdoc-cvs] CVS update: DefDoc/src/layout/html-engine.lisp

[Rahul Jain]

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)))