[STUMP] [PATCH] Handle convert errors in bytes-to-string

[Vitaly Mayatskikh]

StumpWM crashes in bytes-to-string when it takes non-convertable
sequence for current locale. The same error handler exists in
utf8-to-string, apply it to bytes-to-string also.

diff --git a/wrappers.lisp b/wrappers.lisp
index 7bae9fe..799d2c8 100644
--- a/wrappers.lisp
+++ b/wrappers.lisp
@@ -184,9 +184,10 @@
 
 (defun bytes-to-string (data)
   "Convert a list of bytes into a string."
-  #+sbcl
-  (sb-ext:octets-to-string
-   (make-array (length data) :element-type '(unsigned-byte 8) 
:initial-contents data))
+  #+sbcl (handler-bind
+             ((sb-impl::octet-decoding-error #'(lambda (c) (invoke-restart 
'use-value "?"))))
+          (sb-ext:octets-to-string
+           (make-array (length data) :element-type '(unsigned-byte 8) 
:initial-contents data)))
   #+clisp
   (ext:convert-string-from-bytes 
    (make-array (length data) :element-type '(unsigned-byte 8) 
:initial-contents data)
-- 
wbr, Vitaly