[isidorus-cvs] r175 - in trunk/src/xml: rdf xtm

[Lukas Giessmann]

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)