Author: lgiessmann
Date: Tue Jan 19 15:17:03 2010
New Revision: 175
Log:
fixed an exporter-problem with older versions of sbcl -> the external-format is now set to utf-8 explicitely
Modified:
trunk/src/xml/rdf/exporter.lisp
trunk/src/xml/xtm/exporter.lisp
Modified: trunk/src/xml/rdf/exporter.lisp
==============================================================================
--- trunk/src/xml/rdf/exporter.lisp (original)
+++ trunk/src/xml/rdf/exporter.lisp Tue Jan 19 15:17:03 2010
@@ -119,6 +119,7 @@
(init-*ns-map*)
(setf *export-tm* tm)
(with-revision revision
+ (setf SB-IMPL::*DEFAULT-EXTERNAL-FORMAT* :utf-8)
(with-open-file (stream rdf-path :direction :output)
(cxml:with-xml-output (cxml:make-character-stream-sink
stream :canonical nil)
Modified: trunk/src/xml/xtm/exporter.lisp
==============================================================================
--- trunk/src/xml/xtm/exporter.lisp (original)
+++ trunk/src/xml/xtm/exporter.lisp Tue Jan 19 15:17:03 2010
@@ -75,6 +75,7 @@
(get-item-by-item-identifier tm-id :revision revision))))
(setf *export-tm* tm)
(with-revision revision
+ (setf SB-IMPL::*DEFAULT-EXTERNAL-FORMAT* :utf-8)
(with-open-file (stream xtm-path :direction :output)
(cxml:with-xml-output (cxml:make-character-stream-sink stream :canonical nil)
(if (eq xtm-format '2.0)
