[Portableaserve-cvslog] CVS: portableaserve/aserve/htmlgen htmlgen.cl,1.5,1.6

[Rudi S. <ru...@us...>]

Update of /cvsroot/portableaserve/portableaserve/aserve/htmlgen
In directory sc8-pr-cvs1:/tmp/cvs-serv25566/aserve/htmlgen

Modified Files:
	htmlgen.cl 
Log Message:
	* aserve/htmlgen/htmlgen.cl (html-standard-print): Fix bug
	reported by Sean Ross to portableaserve-help (2003-11-06): output
	the closing tags to the given stream, not standard-output


Index: htmlgen.cl
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/aserve/htmlgen/htmlgen.cl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- htmlgen.cl	3 Dec 2002 14:44:36 -0000	1.5
+++ htmlgen.cl	6 Nov 2003 22:36:29 -0000	1.6
@@ -463,7 +463,7 @@
 	 (html-print-subst ff subst stream)))
      (if* (html-process-has-inverse ent)
 	then ; end the form
-	     (write-html-string (format nil "</~a>" (html-process-key ent)))))))
+	     (write-html-string (format nil "</~a>" (html-process-key ent)) stream)))))