[slime-cvs] CVS slime

[CVS User heller]

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

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

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:04:43	1.2227
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:04:54	1.2228
@@ -1,5 +1,9 @@
 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>
+
 	* swank-clisp.lisp (string-to-utf8, string-to-utf8): Implemented.
 
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/10/09 23:02:33	1.232
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2011/11/06 17:04:54	1.233
@@ -63,6 +63,16 @@
   )
 
 (in-package :swank-backend)
+
+;;; UTF8
+
+(defimplementation string-to-utf8 (string)
+  (let ((ef (load-time-value (stream::find-external-format :utf-8) t)))
+    (stream:string-to-octets string :external-format ef)))
+
+(defimplementation utf8-to-string (octets)
+  (let ((ef (load-time-value (stream::find-external-format :utf-8) t)))
+    (stream:octets-to-string octets :external-format ef)))
 
 
 ;;;; TCP server