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)