[STUMP] IM make stumpwm restart when new message come

[S . P . Tseng]

0.9.4-GIT Compiled On Sat Jun 21 11:52:09 2008

The IM written with qt. When new messages come, stumpwm will restart.

--------------------------------------------------------------------------
The value #<XLIB:WINDOW :0 1402E54> is not of type STUMPWM::WINDOW.
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {C123DDD}>)[:EXTERNAL]
1: (BACKTRACE 100 #<SB-IMPL::STRING-OUTPUT-STREAM {C123D89}>)
2: (STUMPWM::BACKTRACE-STRING)
3: ((LAMBDA (STUMPWM::C)) #<TYPE-ERROR {C123A41}>)
4: (SIGNAL #<TYPE-ERROR {C123A41}>)[:EXTERNAL]
5: (ERROR TYPE-ERROR)[:EXTERNAL]
6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #XB77909B0)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB779069C :TYPE (*
                                                            (STRUCT
                                                             
SB-VM::OS-CONTEXT-T-STRUCT))>
    (14 78))
7: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #XB77909B0)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB779069C :TYPE (*
                                                            (STRUCT
                                                             
SB-VM::OS-CONTEXT-T-STRUCT))>
    (14 78))[:EXTERNAL]
8: (SB-KERNEL:INTERNAL-ERROR
    #.(SB-SYS:INT-SAP #XB779069C)
    #<unavailable argument>)
9: ("foreign function: #x8063AEC")
10: ("foreign function: #x8051F8C")
11: ("foreign function: #x80567EF")
12: ("foreign function: #x8056A23")
13: (STUMPWM::WINDOW-URGENT-P #<XLIB:WINDOW :0 1402E54>)
14: (STUMPWM::MAYBE-SET-URGENCY #<XLIB:WINDOW :0 1402E54>)
15: ((LABELS #:G732)
     :WINDOW
     #<XLIB:WINDOW :0 1402E54>
     :TYPE
     :_NET_WM_STATE
     :DATA
     #(1 263 0 0 0))
16: (STUMPWM::HANDLE-EVENT)[:EXTERNAL]
17: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
18: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]520))
19: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
     #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {B7790CFD}>
     #S(SB-THREAD:MUTEX
        :NAME "CLX Event Lock"
        :%OWNER #<SB-THREAD:THREAD "initial thread" {B67C651}>
        :STATE 1))
20: (XLIB:PROCESS-EVENT #<XLIB:DISPLAY :0 (The X.Org Foundation 
R10400090)>)[:EXTERNAL]
21: (STUMPWM::STUMPWM-INTERNAL-LOOP)
22: (STUMPWM::STUMPWM-INTERNAL-LOOP)[:EXTERNAL]
23: (STUMPWM::STUMPWM-INTERNAL ":0")
24: (STUMPWM:STUMPWM ":0")
25: ((LABELS SB-IMPL::RESTART-LISP))