[STUMP] Stumpwm crash

[Vitaly Mayatskikh]

Hi!

I'm not sure if this is a stumpwm bug. If anyone can identify it as a
sbcl bug, I will route a bug report to sbcl team.

When I set *mode-line-timeout* to 1, stumpwm begins to crash very
often with such error trace:
`
(Russian locale, so do s/Прерван системный вызов/Interrupted system call/)

Caught 'couldn't select on sub-process: Прерван системный вызов' at the top 
level. Please report this.
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {100449B429}>)[:EXTERNAL]
1: (BACKTRACE 100 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {1000242CC1}>)
2: ((LAMBDA (STUMPWM::C)) #<SIMPLE-ERROR {1004499D01}>)
3: (SIGNAL #<SIMPLE-ERROR {1004499D01}>)[:EXTERNAL]
4: (ERROR
    "~@<couldn't select on sub-process: ~
                                           ~2I~_~A~:>")[:EXTERNAL]
5: ((LAMBDA (SB-IMPL::FD)) #<unavailable argument>)
6: (SB-IMPL::SUB-SERVE-EVENT
    #<unavailable argument>
    #<unavailable argument>
    NIL)
7: (SB-SYS:SERVE-ALL-EVENTS 1)
8: (PROCESS-WAIT #<SB-IMPL::PROCESS :EXITED 0> NIL)
9: (RUN-PROGRAM
    "/bin/bash"
    ("-c"
     "sed -n 's/temperature:[[:space:]]*//p' 
/proc/acpi/thermal_zone/THM0/temperature | tr -d 
[:cntrl:][:space:]"))[:EXTERNAL]
10: (STUMPWM::RUN-PROG-COLLECT-OUTPUT "/bin/bash")[:EXTERNAL]
11: (STUMPWM::FORMAT-EXPAND
     ((#\r STUMPWM::READ-WEATHER) (#\d STUMPWM::FMT-DATE-TIME)
      (#\b STUMPWM::FMT-BAT-CHARGE) (#\t STUMPWM::FMT-CPU-TEMP)
      (#\f STUMPWM::FMT-CPU-FREQ) (#\C STUMPWM::FMT-CPU-USAGE-BAR)
      (#\c STUMPWM::FMT-CPU-USAGE) (#\m STUMPWM::FMT-MPD-STATUS)
      (#\w STUMPWM::FMT-WINDOW-LIST) (#\g STUMPWM::FMT-GROUP-LIST)
      (#\h STUMPWM::FMT-HEAD) (#\n STUMPWM::FMT-GROUP)
      (#\W STUMPWM::FMT-HEAD-WINDOW-LIST))
     "%g | %m | %f %c %t| %b | %r | %d")[:EXTERNAL]
12: ((SB-PCL::FAST-METHOD STUMPWM::MODE-LINE-FORMAT-ELT (LIST))
     #<unavailable argument>
     #<unavailable argument>
     ("%g | %m | %f %c %t| %b | %r | %d"))
13: (STUMPWM::REDRAW-MODE-LINE
     #S(STUMPWM::MODE-LINE
        :SCREEN #S<screen #<XLIB:SCREEN :0.0 1680x1050x24 TRUE-COLOR>>
        :HEAD #S(frame 0 NIL 0 0 1680 1050)
        :WINDOW #<XLIB:WINDOW :0 C00009>
        :FORMAT STUMPWM:*SCREEN-MODE-LINE-FORMAT*
        :POSITION :TOP
        :CONTENTS "^R1*emacs^r 2-xterm 3+conk 4-gnus | Playing [_;_] (44%): 
Vlad Tepes (Belketre / March To The Black Holocaust (split C | 2.201GHz CPU: ^[ 
11%^]  50C| BAT: 97% | outside: 05/-07 C | Mon Feb 18 13:33:30 2008"
        :CC #S(STUMPWM::CCONTEXT
               :WIN #<XLIB:WINDOW :0 C00009>
               :GC #<XLIB:GCONTEXT :0 12582922>
               :DEFAULT-FG 13882323
               :DEFAULT-BRIGHT 16777215
               :DEFAULT-BG 0)
        :HEIGHT 16
        :FACTOR 517/525
        :MODE :STUMP)
     NIL)
14: (STUMPWM::UPDATE-MODE-LINES
     #S<screen #<XLIB:SCREEN :0.0 1680x1050x24 TRUE-COLOR>>)
15: (STUMPWM::UPDATE-ALL-MODE-LINES)
16: (STUMPWM::RUN-EXPIRED-TIMERS
     (#S(STUMPWM::TIMER :TIME 215491 :REPEAT 2 :FUNCTION # :ARGS NIL)
      #S(STUMPWM::TIMER
         :TIME 213481
         :REPEAT 1
         :FUNCTION STUMPWM::UPDATE-ALL-MODE-LINES
         :ARGS NIL)))
17: (STUMPWM::STUMPWM-INTERNAL-LOOP)
18: (STUMPWM:STUMPWM ":0")
19: ((LAMBDA ()))
20: ((LABELS SB-IMPL::RESTART-LISP))

And one more trace (this one is realy annoying):

Caught 'Recursive lock attempt #S(SB-THREAD:MUTEX
                                  :NAME "Scheduler lock"
                                  :%OWNER #<SB-THREAD:THREAD "initial thread" 
{1003A78B21}>
                                  :STATE 1).' at the top level. Please report 
this.
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {10040FA2A9}>)[:EXTERNAL]
1: (BACKTRACE 100 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {1000242CC1}>)
2: ((LAMBDA (STUMPWM::C)) #<SIMPLE-ERROR {10040F64E1}>)
3: (SIGNAL #<SIMPLE-ERROR {10040F64E1}>)[:EXTERNAL]
4: (ERROR "Recursive lock attempt ~S.")[:EXTERNAL]
5: (SB-THREAD:GET-MUTEX
    #<unavailable argument>
    #<unavailable argument>
    #<unavailable argument>)
6: ((FLET SB-THREAD::%CALL-WITH-SYSTEM-MUTEX))
7: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-SYSTEM-MUTEX]268))
8: (SB-THREAD::CALL-WITH-SYSTEM-MUTEX
    #<CLOSURE (LAMBDA #) {10040F6479}>
    #S(SB-THREAD:MUTEX
       :NAME "Scheduler lock"
       :%OWNER #<SB-THREAD:THREAD "initial thread" {1003A78B21}>
       :STATE 1)
    NIL)
9: (SB-IMPL::RUN-EXPIRED-TIMERS)
10: ((FLET #:WITHOUT-INTERRUPTS-BODY-[INVOKE-INTERRUPTION]11))
11: (SB-SYS:INVOKE-INTERRUPTION
     #<CLOSURE (FLET SB-UNIX::INTERRUPTION) {2AAAB171EB99}>)
12: ((FLET SB-UNIX::RUN-HANDLER)
     14
     #.(SB-SYS:INT-SAP #X2AAAB1969010)
     #.(SB-SYS:INT-SAP #X2AAAB171EDD0))
13: ("foreign function: #x4197D2")
14: ("foreign function: #x40A862")
15: ("foreign function: #x40E363")
16: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]469))
17: ((LAMBDA ()))
18: ((LAMBDA ()))
19: ((FLET SB-THREAD::%CALL-WITH-SYSTEM-MUTEX))
20: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-SYSTEM-MUTEX]268))
21: (SB-THREAD::CALL-WITH-SYSTEM-MUTEX
     #<CLOSURE (LAMBDA #) {10040F37A9}>
     #S(SB-THREAD:MUTEX
        :NAME "Scheduler lock"
        :%OWNER #<SB-THREAD:THREAD "initial thread" {1003A78B21}>
        :STATE 1)
     NIL)
22: (UNSCHEDULE-TIMER #<TIMER {10040EB5C1}>)
23: ((FLET #:|CLEANUP-FUN-[#:G1102]1106|))[:CLEANUP]
24: (XLIB:EVENT-LISTEN #<XLIB:DISPLAY :0 (The X.Org Foundation R10300000)> 1)
25: (STUMPWM::STUMPWM-INTERNAL-LOOP)
26: (STUMPWM:STUMPWM ":0")
27: ((LAMBDA ()))
28: ((LABELS SB-IMPL::RESTART-LISP))

-- 
wbr, Vitaly