[isidorus-cvs] r175 - in trunk/src/xml: rdf xtm - isidorus-cvs@common-lisp.net - mailman3.common-lisp.net

19 Jan 2010

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)

    