[slime-cvs] CVS slime

[CVS User heller]

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

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

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:04:10	1.2224
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:04:21	1.2225
@@ -1,5 +1,9 @@
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-allegro.lisp (string-to-utf8, string-to-utf8): Implemented.
+
+2011-11-06  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-abcl.lisp (string-to-utf8, string-to-utf8): Implemented.
 	(octets-to-jbytes, jbytes-to-octets): New helpers.
 
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2011/10/19 09:47:57	1.145
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2011/11/06 17:04:21	1.146
@@ -27,6 +27,15 @@
   (documentation slot t))
 
 
+;;;; UTF8
+
+(defimplementation string-to-utf8 (s)
+  (excl:string-to-octets s :external-format :utf8))
+
+(defimplementation utf8-to-string (u)
+  (excl:octets-to-string u :external-format :utf8))
+
+
 ;;;; TCP Server
 
 (defimplementation preferred-communication-style ()