CLX encoding problem with beirc

[Cyrus Harmon]

I got the following error running beirc on mcclim/clx. Christophe Rhodes pointed out that this in an encoding error. Presumably I received a non-ascii character from IRC and beirc choked.

Christophe says:

"I think the default CLX translation function from characters to font
indices only copes with ascii; the one provided in the CLIM-CLX backend
only copes with iso8859-1. These days, a Unicode (iso10646-1) default
would probably be more sensible, yes."

unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD "initial thread" RUNNING
                                 {1002AC2D11}>:
  The value 953 is not of type (UNSIGNED-BYTE 8).

0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {1003E9BD59}>)[:EXTERNAL]
1: (SB-DEBUG:BACKTRACE
    128
    #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {1000159B51}>)
2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
    #<TYPE-ERROR {1003E99321}>
    #<unavailable argument>)
3: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR
{1003E99321}>)
4: (INVOKE-DEBUGGER #<TYPE-ERROR {1003E99321}>)
5: (ERROR TYPE-ERROR)[:EXTERNAL]
6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #X7FFFF4EC1980)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF4EC1500 :TYPE (*

(SB-ALIEN:STRUCT SB-VM::OS-CONTEXT-T-STRUCT))>
    (405 21))
7: (SB-KERNEL:INTERNAL-ERROR
    #.(SB-SYS:INT-SAP #X7FFFF4EC1500)
    #<unavailable argument>)
8: ("foreign function: #x422C00")
9: ("foreign function: #x40D15C")
10: ("foreign function: #x4133A5")
11: ("foreign function: #x4140BA")
12: (SB-IMPL::OPTIMIZED-DATA-VECTOR-SET
     #<unavailable argument>
     #<unavailable argument>
     #<unavailable argument>)
13: (CLIM-CLX::TRANSLATE
     "ι"
     0
     1
     #<XLIB:FONT
       -adobe-helvetica-medium-r-normal--14-100-100-100-p-76-iso10646-1
:0 50331673>
     #(56 0 4 0 85 0 0 3 4 0 0 0 190 190 190 0 59 0 5 0 85 0 0 3 0 0 0 0
0 0 45
       45 5 3 191 1 74 0 5 0 83 0 0 3 85 0 0 3 33 4 251 46 1 0 91 0 74 0
6 0 83
...
       0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
     138)
14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
15: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]324))
16: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
     #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {7FFFF4EC1CA9}>
     #S(SB-THREAD:MUTEX
        :NAME "CLX Buffer Lock"
        :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {1002AC2D11}>
        :STATE 1))