[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-clisp.lisp 
Log Message:
* swank-clisp.lisp (string-to-utf8, string-to-utf8): Implemented.

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:04:32	1.2226
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:04:43	1.2227
@@ -1,5 +1,9 @@
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-clisp.lisp (string-to-utf8, string-to-utf8): Implemented.
+
+2011-11-06  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-ccl.lisp (string-to-utf8, string-to-utf8): Implemented.
 
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
--- /project/slime/cvsroot/slime/swank-clisp.lisp	2010/09/22 14:53:14	1.95
+++ /project/slime/cvsroot/slime/swank-clisp.lisp	2011/11/06 17:04:43	1.96
@@ -135,6 +135,20 @@
                        :name file 
                        :type type)))))
 
+;;;; UTF 
+
+(defimplementation string-to-utf8 (string)
+  (let ((enc (load-time-value 
+              (ext:make-encoding :charset "utf-8" :line-terminator :unix)
+              t)))
+    (ext:convert-string-to-bytes string enc)))
+
+(defimplementation utf8-to-string (octets)
+  (let ((enc (load-time-value 
+              (ext:make-encoding :charset "utf-8" :line-terminator :unix)
+              t)))
+    (ext:convert-string-from-bytes octets enc)))
+
 ;;;; TCP Server
 
 (defimplementation create-socket (host port)