[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
* swank-ccl.lisp (swank-compile-string, compile-temp-file): Use utf8.

--- /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:09:46	1.2302
+++ /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:09:57	1.2303
@@ -1,5 +1,8 @@
 2012-03-26  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-ccl.lisp (swank-compile-string, compile-temp-file): Use
+	utf8.
+
 	* slime.el (utf-8-source): New test case.
 
 2012-03-14  Paulo Madeira <acelent at gmail.com>
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2012/03/06 22:04:21	1.26
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2012/03/26 15:09:57	1.27
@@ -207,7 +207,7 @@
       (unwind-protect
            (progn
              (with-open-file (s temp-file-name :direction :output 
-                                :if-exists :error)
+                                :if-exists :error :external-format :utf-8)
                (write-string string s))
              (let ((binary-filename (compile-temp-file
                                      temp-file-name filename buffer position)))
@@ -226,7 +226,8 @@
                       (setf (gethash temp-file-name *temp-file-map*)
                             buffer-name)
                       temp-file-name))
-                :compile-file-original-buffer-offset (1- offset)))
+                :compile-file-original-buffer-offset (1- offset)
+                :external-format :utf-8))
 
 (defimplementation save-image (filename &optional restart-function)
   (ccl:save-application filename :toplevel-function restart-function))