[slime-cvs] CVS slime

[CVS User heller]

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

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

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:04:54	1.2228
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:05:05	1.2229
@@ -1,5 +1,9 @@
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-lispworks.lisp (string-to-utf8, string-to-utf8): Implemented.
+
+2011-11-06  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-cmucl.lisp (string-to-utf8, string-to-utf8): Implemented.
 
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2011/11/03 18:31:19	1.142
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2011/11/06 17:05:05	1.143
@@ -62,6 +62,14 @@
                                 :check-redefinition-p nil)
        ,(funcall *original-defimplementation* whole env))))
 
+;;; UTF8
+
+(defimplementation string-to-utf8 (string)
+  (ef:encode-lisp-string string :utf-8))
+
+(defimplementation utf8-to-string (octets)
+  (ef:decode-external-string octets :utf-8))
+
 ;;; TCP server
 
 (defimplementation preferred-communication-style ()