[STUMP] Last portable-clx patch

[Manuel Giraud]

Hi folks,

This morning I wanted to upgrade both stumpwm and clx and stumpwm went
this way:

Caught 'The value NIL is not of type STUMPWM::SCREEN.' at the top level. Please 
report this.
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {5A04DCFD}>)[:EXTERNAL]
1: (SB-DEBUG:BACKTRACE 100 #<SB-IMPL::STRING-OUTPUT-STREAM {5A04DCA9}>)
2: (STUMPWM::BACKTRACE-STRING)
3: ((FLET #:LAMBDA222) #<TYPE-ERROR {5A04D9B1}>)
4: (SIGNAL #<TYPE-ERROR {5A04D9B1}>)[:EXTERNAL]
5: (ERROR TYPE-ERROR)[:EXTERNAL]
6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #X283ADA60)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X283AD740 :TYPE (*
                                                            (SB-ALIEN:STRUCT
                                                             
SB-VM::OS-CONTEXT-T-STRUCT))>
    (398 14))
7: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #X283ADA60)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X283AD740 :TYPE (*
                                                            (SB-ALIEN:STRUCT
                                                             
SB-VM::OS-CONTEXT-T-STRUCT))>
    (398 14))[:EXTERNAL]
8: (SB-KERNEL:INTERNAL-ERROR
    #.(SB-SYS:INT-SAP #X283AD740)
    #<unavailable argument>)
9: ("foreign function: call_into_lisp")
10: ("foreign function: funcall2")
11: ("foreign function: interrupt_internal_error")
12: (STUMPWM::SCREEN-ADD-MAPPED-WINDOW NIL #<XLIB:WINDOW :0 1000007>)
13: (STUMPWM::ADD-WINDOW NIL #<XLIB:WINDOW :0 1000007>)
14: (STUMPWM::PROCESS-MAPPED-WINDOW NIL #<XLIB:WINDOW :0 1000007>)
15: ((LABELS #:G145)
     :PARENT
     #<XLIB:WINDOW :0 61>
     :SEND-EVENT-P
     NIL
     :WINDOW
     #<XLIB:WINDOW :0 1000007>)
16: (STUMPWM::HANDLE-EVENT)[:EXTERNAL]
17: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
18: (XLIB:PROCESS-EVENT #<XLIB:DISPLAY :0 (The X.Org Foundation 
R10402000)>)[:EXTERNAL]
19: (STUMPWM::STUMPWM-INTERNAL-LOOP)
20: (STUMPWM::STUMPWM-INTERNAL-LOOP)[:EXTERNAL]
21: (STUMPWM::STUMPWM-INTERNAL ":0.0")
22: (STUMPWM ":0.0")
23: ((LAMBDA ()))
24: ((LABELS SB-IMPL::RESTART-LISP))

I had to darcs obliterate the last 2 patch and now everything works
fine. Okay maybe it is more a clx issue.

-- 
Manuel Giraud