[STUMP] mpd.lisp restarting stumpwm

[Rohan Nicholls]

Hi all,

I have been using mpd.lisp and really like the functionality it
offers (I had not used mpd before, but prefer it to rhythmbox, which
relies on dbus etc.).

I have run into this problem however:
If I ask for the key mappings, <key for mpd map>-?, it goes horribly
wrong forcing stumpwm to restart.  I have included a traceback below.

Another thing I have noticed is that the connection to mpd is often
lost esp. if there is a gap between requests.  I have no idea why this
is, but I was wondering if it would not be a better idea to have a
connection created for each mpd command, rather than keeping it open.
Because of this I have mapped <mpd-map>-C to create a new connection,
just thought it might be a good idea to throw that in until a more
stable solution can be found .

Here is the backtrace:

    The value NIL is not of type HASH-TABLE.
    0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {B42DCE5}>)[:EXTERNAL]
    1: (BACKTRACE 100 #<SB-IMPL::STRING-OUTPUT-STREAM {B42DC91}>)
    2: (STUMPWM::BACKTRACE-STRING)
    3: ((LAMBDA (STUMPWM::C)) #<TYPE-ERROR {B42D951}>)
    4: (SIGNAL #<TYPE-ERROR {B42D951}>)[:EXTERNAL]
    5: (ERROR TYPE-ERROR)[:EXTERNAL]
    6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #XB79DE1D8)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB79DDEAC :TYPE (*
    (STRUCT
    SB-VM::OS-CONTEXT-T-STRUCT))>
    (14 78))
    7: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #XB79DE1D8)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB79DDEAC :TYPE (*
    (STRUCT
    SB-VM::OS-CONTEXT-T-STRUCT))>
    (14 78))[:EXTERNAL]
    8: (SB-KERNEL:INTERNAL-ERROR
    #.(SB-SYS:INT-SAP #XB79DDEAC)
    #<unavailable argument>)
    9: ("foreign function: #x806394C")
    10: ("foreign function: #x8051EFC")
    11: ("foreign function: #x805604F")
    12: ("foreign function: #x805687B")
    13: (STUMPWM::MAPCAR-HASH #<FUNCTION (LAMBDA #) {BAEEAB5}> NIL)
    14: (STUMPWM::DISPLAY-KEYBINDING NIL)
    15: (STUMPWM::HANDLE-KEYMAP
    #<HASH-TABLE :TEST EQUALP :COUNT 17 {C5363F1}>
    34
    1
    (#S(STUMPWM::KEY
    :KEYSYM 80
    :SHIFT NIL
    :CONTROL NIL
    :META NIL
    :ALT NIL
    :HYPER NIL
    :SUPER NIL)
    #S(STUMPWM::KEY
    :KEYSYM 116
    :SHIFT NIL
    :CONTROL T
    :META NIL
    :ALT NIL
    :HYPER NIL
    :SUPER NIL))
    NIL
    NIL)
    16: (STUMPWM::HANDLE-KEYMAP
    #<HASH-TABLE :TEST EQUALP :COUNT 95 {B622E21}>
    27
    1
    (#S(STUMPWM::KEY
    :KEYSYM 116
    :SHIFT NIL
    :CONTROL T
    :META NIL
    :ALT NIL
    :HYPER NIL
    :SUPER NIL))
    NIL
    NIL)
    17: (STUMPWM::HANDLE-KEYMAP
    #<HASH-TABLE :TEST EQUALP :COUNT 14 {B622D29}>
    45
    4
    NIL
    T
    NIL)
    18: ((LABELS #:G318) :CODE 45 :STATE 4)
    19: (STUMPWM::HANDLE-EVENT)[:EXTERNAL]
    20: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
    21: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]469))
    22: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
    #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {B79DE775}>
    #S(SB-THREAD:MUTEX
    :NAME "CLX Event Lock"
    :%OWNER #<SB-THREAD:THREAD "initial thread" {A72EBF1}>
    :STATE 1))
    23: (XLIB:PROCESS-EVENT #<XLIB:DISPLAY :0 (The X.Org Foundation
R10300000)>)[:EXTERNAL]
    24: (STUMPWM::STUMPWM-INTERNAL-LOOP)
    25: (STUMPWM::STUMPWM-INTERNAL-LOOP)[:EXTERNAL]
    26: (STUMPWM::STUMPWM-INTERNAL ":0")
    27: (STUMPWM:STUMPWM ":0")
    28: (SB-INT:SIMPLE-EVAL-IN-LEXENV (STUMPWM:STUMPWM) #<NULL-LEXENV>)
    29: (SB-FASL::LOAD-AS-SOURCE
    #<SB-SYS:FD-STREAM for "file /home/rohan/bin/startstump" {AD03E19}>
    NIL
    NIL)
    30: (SB-FASL::%LOAD
    #<SB-SYS:FD-STREAM for "file /home/rohan/bin/startstump"
{AD03E19}>)[:EXTERNAL]
    31: (SB-FASL::%LOAD #P"/home/rohan/bin/startstump")[:EXTERNAL]
    32: (LOAD #P"/home/rohan/bin/startstump")[:EXTERNAL]
    33: (SB-INT:SIMPLE-EVAL-IN-LEXENV
    (LOAD #P"/home/rohan/bin/startstump")
    #<NULL-LEXENV>)
    34: (SB-IMPL::PROCESS-EVAL-OPTIONS
    ("(require :asdf)"
    "(setq asdf:*central-registry* '(#p\"/home/rohan/src/clbuild/systems/\"))"
    "nil" (LOAD #P"/home/rohan/bin/startstump")))
    35: (SB-IMPL::TOPLEVEL-INIT)
    36: ((LABELS SB-IMPL::RESTART-LISP))