[STUMP] Stumpwm crashes when there is incorrect utf-8 in windows title

[Alexey Lebedeff]

The app that created incorrect title was Licq. 
I made a small change in sbcl variant, so now invalid utf-8 is ignored.

It's not perfect, because it replaces whole title with "<Invalid>" when
encounters incorrect utf-8, but this is enough for me.



diff --git a/wrappers.lisp b/wrappers.lisp
index 8fad995..c5ef072 100644
--- a/wrappers.lisp
+++ b/wrappers.lisp
@@ -193,9 +193,13 @@
 
 (defun utf8-to-string (octets)
   "Convert the list of octets to a string."
-  #+sbcl (sb-ext:octets-to-string
-          (coerce octets '(vector (unsigned-byte 8)))
-          :external-format :utf-8)
+  #+sbcl (let (result)
+                  (ignore-errors (setf result (sb-ext:octets-to-string
+                                                                               
(coerce octets '(vector (unsigned-byte 8)))
+                                                                               
:external-format :utf-8)))
+                  (unless result
+                        (setf result "<Invalid>"))
+                  result)
   #+clisp (ext:convert-string-from-bytes (coerce octets '(vector 
(unsigned-byte 8)))
                                          charset:utf-8)
   #-(or sbcl clisp)