[STUMP] crash with threaded SBCL

[Carlos Konstanski]

Wow, the new error handling is great!  It took me a while to realize
that I could recover from the crash and keep working.  Here is the
backtrace.

Carlos Konstanski



Recursive lock attempt #S(SB-THREAD:MUTEX
                          :NAME "Scheduler lock"
                          :%OWNER NIL
                          :STATE 0).
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {BC56785}>)[:EXTERNAL]
1: (BACKTRACE 100 #<SB-IMPL::STRING-OUTPUT-STREAM {BC56731}>)
2: (STUMPWM::BACKTRACE-STRING)
3: ((LAMBDA (STUMPWM::C)) #<SIMPLE-ERROR {BC564F9}>)
4: (SIGNAL #<SIMPLE-ERROR {BC564F9}>)[:EXTERNAL]
5: (ERROR "Recursive lock attempt ~S.")[:EXTERNAL]
6: (SB-THREAD:GET-MUTEX
    #<unavailable argument>
    #<unavailable argument>
    #<unavailable argument>)
7: ((FLET SB-THREAD::%CALL-WITH-SYSTEM-MUTEX))
8: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-SYSTEM-MUTEX]268))
9: ((FLET #:CLEANUP-FUN-[RUN-EXPIRED-TIMERS]636))[:CLEANUP]
10: (SB-IMPL::RUN-EXPIRED-TIMERS)
11: ((FLET #:WITHOUT-INTERRUPTS-BODY-[INVOKE-INTERRUPTION]11))
12: (SB-SYS:INVOKE-INTERRUPTION
     #<CLOSURE (FLET SB-UNIX::INTERRUPTION) {B7B07D85}>)
13: ((FLET SB-UNIX::RUN-HANDLER)
     14
     #.(SB-SYS:INT-SAP #XB7FE3008)
     #.(SB-SYS:INT-SAP #XB7B082BC))
14: ("foreign function: #x80635BC")
15: ("foreign function: #x8051F03")
16: ("foreign function: #x8055E29")
17: ("foreign function: #x8056780")
18: ("foreign function: #x8056942")
19: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]469))
20: ((LAMBDA ()))
21: ((LAMBDA ()))
22: ((FLET SB-THREAD::%CALL-WITH-SYSTEM-MUTEX))
23: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-SYSTEM-MUTEX]268))
24: (SB-THREAD::CALL-WITH-SYSTEM-MUTEX
     #<CLOSURE (LAMBDA #) {BBDE755}>
     #S(SB-THREAD:MUTEX
        :NAME "Scheduler lock"
        :%OWNER #<SB-THREAD:THREAD "initial thread" {A72D6A9}>
        :STATE 1)
     NIL)
25: (UNSCHEDULE-TIMER #<TIMER {BBDC341}>)
26: ((FLET #:|CLEANUP-FUN-[#:G1102]1106|))[:CLEANUP]
27: (XLIB:EVENT-LISTEN #<XLIB:DISPLAY :0 (The X.Org Foundation R10300000)> 5)
28: (STUMPWM::STUMPWM-INTERNAL-LOOP)
29: (STUMPWM::STUMPWM-INTERNAL-LOOP)[:EXTERNAL]
30: (STUMPWM::STUMPWM-INTERNAL ":0")
31: (STUMPWM:STUMPWM ":0")
32: (SB-INT:SIMPLE-EVAL-IN-LEXENV (STUMPWM:STUMPWM) #<NULL-LEXENV>)
33: ((FLET SB-IMPL::PROCESS-STREAM)
     #<SB-SYS:FD-STREAM for "file /etc/sbclrc.stumpwm" {B393E11}>
     #P"/etc/sbclrc.stumpwm")
34: (SB-IMPL::PROCESS-INIT-FILE
     "/etc/sbclrc.stumpwm"
     #<FUNCTION SB-IMPL::USERINIT-PATHNAME>)
35: (SB-IMPL::TOPLEVEL-INIT)
36: ((LABELS SB-IMPL::RESTART-LISP))