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