[slime-cvs] CVS slime

[CVS User heller]

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

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

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:05:05	1.2229
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:05:16	1.2230
@@ -1,5 +1,9 @@
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-sbcl.lisp (string-to-utf8, string-to-utf8): Implemented.
+
+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>
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/09/01 06:29:30	1.289
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/11/06 17:05:16	1.290
@@ -61,6 +61,14 @@
 (defimplementation getpid ()
   (sb-posix:getpid))
 
+;;; UTF8
+
+(defimplementation string-to-utf8 (string)
+  (sb-ext:string-to-octets string :external-format :utf8))
+
+(defimplementation utf8-to-string (octets)
+  (sb-ext:octets-to-string octets :external-format :utf8))
+
 ;;; TCP Server
 
 (defimplementation preferred-communication-style ()