[STUMP] Re: MPlayer refuses to run under StumpWM

[Egon Hyszczak]

Tried adding supplied fix to .stumpwmrc as directed and I get this error:

DEFUN/DEFMACRO(XLIB::DECODE-WM-SIZE-HINTS): #<PACKAGE XLIB> is locked<1/166> #<SYSTEM-FUNCTION EXT:SHOW-STACK> 3
<2/162> #<COMPILED-FUNCTION STUMPWM::PRINT-BACKTRACE>
[161] unwind-protect frame
- #<COMPILED-FUNCTION STUMPWM::BACKTRACE-STRING>
<3/155> #<COMPILED-FUNCTION STUMPWM::BACKTRACE-STRING>
- #S<screen #<XLIB:SCREEN #x0003346F75F8>>
- #<COMPILED-FUNCTION ERR>
- "
~A"
<4/149> #<COMPILED-FUNCTION ERR>
[146] compiled tagbody frame for #(NIL)
- #(#(NIL "(load \"~/.stumpwm.d/mplayer_fix.lisp\")") #<SYSTEM::SIMPLE-PACKAGE-ERROR #x0003348CE0E0>)
- #(NIL "(load \"~/.stumpwm.d/mplayer_fix.lisp\")")
- "(load \"~/.stumpwm.d/mplayer_fix.lisp\")"
<5/136> #<COMPILED-FUNCTION STUMPWM::EVAL-LINE>
- ("(load \"~/.stumpwm.d/mplayer_fix.lisp\")")
- #S(STUMPWM::COMMAND :NAME STUMPWM::EVAL-LINE :CLASS T :ARGS ((:REST "Eval: ")))
[130] catch frame for tag ERROR
- #S(STUMPWM::ARGUMENT-LINE :STRING "eval" :START 5)
<6/126> #<COMPILED-FUNCTION STUMPWM::CALL-INTERACTIVELY>
[124] frame binding variables (~ = dynamically):
  | ~ STUMPWM::*INTERACTIVEP* <--> NIL
- #S(STUMPWM::ARGUMENT-LINE :STRING "eval" :START 5)
- "eval"
<7/118> #<COMPILED-FUNCTION STUMPWM::EVAL-COMMAND-PARSE-AND-RUN-COMMAND>
<8/116> #<COMPILED-FUNCTION STUMPWM::EVAL-COMMAND-3>
- #<COMPILED-FUNCTION STUMPWM::EVAL-COMMAND-3>
- #<COMPILED-FUNCTION STUMPWM::EVAL-COMMAND-3>
[109] frame binding variables (~ = dynamically):
  | ~ SYSTEM::*ACTIVE-RESTARTS* <--> 
(#S(RESTART :NAME STUMPWM::TOP-LEVEL :TEST #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-25794 :INVOKE-FUNCTION NIL
    :REPORT #<FUNCTION :LAMBDA (STREAM) (FORMAT STREAM "Return to stumpwm's top level")> :INTERACTIVE #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE>
    :MEANINGFULP T)
 #S(RESTART :NAME STUMPWM::QUIT-STUMPWM :TEST #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-29146 :INVOKE-FUNCTION NIL
    :REPORT #<FUNCTION :LAMBDA (STREAM) (FORMAT STREAM "Quit Stumpwm")> :INTERACTIVE #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> :MEANINGFULP T))
- 126
- #(#(NIL "eval" T) #<COMPILED-FUNCTION STUMPWM::EVAL-COMMAND-PARSE-AND-RUN-COMMAND>)
- #<COMPILED-FUNCTION STUMPWM::EVAL-COMMAND>
- "eval"
<9/98> #<COMPILED-FUNCTION STUMPWM::EVAL-COMMAND>
- "eval"
- 0
- 
(:DISPLAY #<XLIB:DISPLAY localhost:0 (The X.Org Foundation R10603901) X11.0 #x0003346F7508> :EVENT-CODE 2 :SEND-EVENT-P NIL :SEQUENCE 36638 :EVENT-KEY
 :KEY-PRESS :CODE 64 :WINDOW #<XLIB:WINDOW 1678x1007+0+2 localhost #x0040000E #x000334708060> :EVENT-WINDOW
 #<XLIB:WINDOW 1678x1007+0+2 localhost #x0040000E #x000334708060> :CHILD #<XLIB:WINDOW 1662x1003+2+2 localhost #x00400013 #x00033470CCD0> :ROOT
 #<XLIB:WINDOW 1680x1050+0+0 localhost #x0000025B #x0003346F76A0> :X 514 :Y 457 :ROOT-X 515 :ROOT-Y 496 :STATE 0 :TIME 169104028 :SAME-SCREEN-P T)
<10/93> #<COMPILED-FUNCTION #:G25135>
[89] frame binding variables (~ = dynamically):
  | ~ SYSTEM::*ACTIVE-RESTARTS* <--> 
(#S(RESTART :NAME STUMPWM::QUIT-STUMPWM :TEST #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-29146 :INVOKE-FUNCTION NIL
    :REPORT #<FUNCTION :LAMBDA (STREAM) (FORMAT STREAM "Quit Stumpwm")> :INTERACTIVE #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> :MEANINGFULP T))
- #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-2>
<11/82> #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-2>
[81] handler frame for conditions (OR XLIB:WINDOW-ERROR XLIB:DRAWABLE-ERROR)
- #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-1>
- 147
- #<XLIB:WINDOW 1678x1007+0+2 localhost #x0040000E #x000334708060>
- 
#(NIL
  (:DISPLAY #<XLIB:DISPLAY localhost:0 (The X.Org Foundation R10603901) X11.0 #x0003346F7508> :EVENT-CODE 2 :SEND-EVENT-P NIL :SEQUENCE 36638 :EVENT-KEY
   :KEY-PRESS :CODE 64 :WINDOW #<XLIB:WINDOW 1678x1007+0+2 localhost #x0040000E #x000334708060> :EVENT-WINDOW
   #<XLIB:WINDOW 1678x1007+0+2 localhost #x0040000E #x000334708060> :CHILD #<XLIB:WINDOW 1662x1003+2+2 localhost #x00400013 #x00033470CCD0> :ROOT
   #<XLIB:WINDOW 1680x1050+0+0 localhost #x0000025B #x0003346F76A0> :X 514 :Y 457 :ROOT-X 515 :ROOT-Y 496 :STATE 0 :TIME 169104028 :SAME-SCREEN-P T))
- :KEY-PRESS
- 
(:DISPLAY #<XLIB:DISPLAY localhost:0 (The X.Org Foundation R10603901) X11.0 #x0003346F7508> :EVENT-CODE 2 :SEND-EVENT-P NIL :SEQUENCE 36638 :EVENT-KEY
 :KEY-PRESS :CODE 64 :WINDOW #<XLIB:WINDOW 1678x1007+0+2 localhost #x0040000E #x000334708060> :EVENT-WINDOW
 #<XLIB:WINDOW 1678x1007+0+2 localhost #x0040000E #x000334708060> :CHILD #<XLIB:WINDOW 1662x1003+2+2 localhost #x00400013 #x00033470CCD0> :ROOT
 #<XLIB:WINDOW 1680x1050+0+0 localhost #x0000025B #x0003346F76A0> :X 514 :Y 457 :ROOT-X 515 :ROOT-Y 496 :STATE 0 :TIME 169104028 :SAME-SCREEN-P T)
<12/66> #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT>
- #<UNBOUND>
- #<UNBOUND>
- #<XLIB:DISPLAY localhost:0 (The X.Org Foundation R10603901) X11.0 #x0003346F7508>
<13/63> #<ADD-ON-SYSTEM-FUNCTION XLIB:PROCESS-EVENT> 2
- 484311/500000
<14/54> #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-5>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-5>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-5>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-3>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1>
<15/43> #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP>
[43] frame binding variables (~ = dynamically):
  | ~ *PACKAGE* <--> #<PACKAGE COMMON-LISP-USER>
[38] frame binding variables (~ = dynamically):
  | ~ SYSTEM::*ACTIVE-RESTARTS* <--> NIL
- :LOCAL
- 0
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL>
<16/27> #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL>
[26] catch frame for tag :TOP-LEVEL
- ":0"
<17/22> #<COMPILED-FUNCTION STUMPWM>
[20] EVAL frame for form (STUMPWM)
[16] frame binding environments
  VAR_ENV <--> NIL
  FUN_ENV <--> NIL
  BLOCK_ENV <--> NIL
  GO_ENV <--> NIL
  DECL_ENV <--> ((DECLARATION XLIB::CLX-VALUES VALUES OPTIMIZE DECLARATION))
[7] APPLY frame for call (:LAMBDA)
<18/4> #<FUNCTION :LAMBDA NIL (STUMPWM) (EXT:QUIT)> 0
- #<COMPILED-FUNCTION EXT::SAVEINITMEM-1>
<19/2> #<COMPILED-FUNCTION EXT::SAVEINITMEM-1>
<20/3> #<SYSTEM-FUNCTION SYSTEM::DRIVER>
<21/3> #<SYSTEM-FUNCTION SYSTEM::DRIVER>
- #<ADDRESS #x000000000000>

It doesn't fix anything if I load the file at the end of my rc, and it ruins the rest of my rc if I load it at the beginning...
Just got a chance to try this today.