[bknr-cvs] r2492 - branches/trunk-reorg/bknr/web/src/web

[hhubner at common-lisp.net]

Author: hhubner
Date: Thu Feb 14 07:12:33 2008
New Revision: 2492

Modified:
   branches/trunk-reorg/bknr/web/src/web/handlers.lisp
Log:
Fix with-bknr-page


Modified: branches/trunk-reorg/bknr/web/src/web/handlers.lisp
==============================================================================
--- branches/trunk-reorg/bknr/web/src/web/handlers.lisp	(original)
+++ branches/trunk-reorg/bknr/web/src/web/handlers.lisp	Thu Feb 14 07:12:33 2008
@@ -534,7 +534,8 @@
   (setf (return-code) response)
   (handler-case
       (let ((body (with-output-to-string (*html-stream*)
-		    (website-show-page *website* fn title))))
+                    (let ((*html-sink* (cxml:make-character-stream-sink *html-stream* :canonical nil :indentation 3)))
+                      (website-show-page *website* fn title)))))
 	(with-http-response (:content-type "text/html; charset=UTF-8" :response response)
 	  (with-http-body ()
 	    (princ body *html-stream*))))