[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv24001

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (swank-compile-string): Use utf8.

--- /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:10:08	1.2304
+++ /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:10:19	1.2305
@@ -1,5 +1,7 @@
 2012-03-26  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-sbcl.lisp (swank-compile-string): Use utf8.
+
 	* swank-cmucl.lisp (swank-compile-file): Use external-format arg.
 
 	* swank-ccl.lisp (swank-compile-string, compile-temp-file): Use
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/03/06 21:42:10	1.302
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/03/26 15:10:19	1.303
@@ -677,11 +677,12 @@
                     :source-namestring filename
                     :allow-other-keys t)
                  (multiple-value-bind (output-file warningsp failurep)
-                     (compile-file *buffer-tmpfile*)
+                     (compile-file *buffer-tmpfile* :external-format :utf-8)
                    (declare (ignore warningsp))
                    (unless failurep
                      (funcall cont output-file)))))))
-      (with-open-file (s *buffer-tmpfile* :direction :output :if-exists :error)
+      (with-open-file (s *buffer-tmpfile* :direction :output :if-exists :error
+                         :external-format :utf-8)
         (write-string string s))
       (unwind-protect
            (with-compiler-policy policy