[slime-cvs] CVS slime

[CVS User rtoy]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
Fix compiler warning about inhibit-warnings and use
find-external-format to compile and load the utf-8 format if needed. 


--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2011/12/01 16:54:52	1.240
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2012/03/11 18:35:52	1.241
@@ -66,10 +66,9 @@
 
 ;;; 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))
+(locally (declare (optimize (ext:inhibit-warnings 3)))
+  ;; Compile and load the utf8 format, if not already loaded.
+  (stream::find-external-format :utf-8))
 
 (defimplementation string-to-utf8 (string)
   (let ((ef (load-time-value (stream::find-external-format :utf-8) t)))