[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
* swank-cmucl.lisp: Trigger compilation of utf8 stuff before first
real use.

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/21 19:46:11	1.2245
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/21 19:52:25	1.2246
@@ -1,5 +1,10 @@
 2011-11-21  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-cmucl.lisp: Trigger compilation of utf8 stuff before first
+	real use.
+
+2011-11-21  Helmut Eller  <heller at common-lisp.net>
+
 	* swank.lisp (*sldb-printer-bindings*): Removed.  Rather useless
 	since the change from 2009-02-26.  It could at best have some
 	influence on the way conditions are printed.  *sldb-string-length*
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2011/11/21 16:34:12	1.236
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2011/11/21 19:52:25	1.237
@@ -66,6 +66,11 @@
 
 ;;; UTF8
 
+(locally (declare (ext:inhibit-warnings 3))
+  (stream:octets-to-string
+   (stream:string-to-octets "compile utf8 transcoder" :external-format :utf-8)
+   :external-format :utf-8))
+
 (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)))