[STUMP] stumpwm crashes with virt-manager

[Vitaly Mayatskikh]

Hello!

StumpWM crashes every time I'm trying to run virt-manager (frontend
for libvirtd)

Attempt to use closed display #<XLIB:DISPLAY XLIB:CLOSED-DISPLAY #x0003344D3088>
<1> #<SYSTEM-FUNCTION SHOW-STACK> 3
<2> #<COMPILED-FUNCTION STUMPWM::PRINT-BACKTRACE>
frame binding variables (~ = dynamically):
  | ~ *STANDARD-OUTPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*>
- #<COMPILED-FUNCTION STUMPWM::BACKTRACE-STRING>
<3> #<COMPILED-FUNCTION STUMPWM::BACKTRACE-STRING>
- #<XLIB:CLOSED-DISPLAY #x00033457A120>
- :TOP-LEVEL
- :ABORT
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1-1>
- #<XLIB:CLOSED-DISPLAY #x00033457A120>
<4> #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1-1>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1-1>
- #<XLIB:CLOSED-DISPLAY #x00033457A120>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP>
<5> #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP>
unwind-protect frame
- #<XLIB:CLOSED-DISPLAY #x00033457A120>
catch frame for tag SYSTEM::DONE-SIGNALING
<6> #<SYSTEM-FUNCTION SIGNAL> 1
frame binding variables (~ = dynamically):
  | ~ *PRINT-READABLY* <--> NIL
<7> #<SYSTEM-FUNCTION ERROR> 5
frame binding variables (~ = dynamically):
  | ~ *PRINT-ESCAPE* <--> T
- #<XLIB:CLOSED-DISPLAY #x00033457A120>
- #<XLIB:DISPLAY XLIB:CLOSED-DISPLAY #x0003344D3088>
- #<XLIB:WINDOW CLOSED-DISPLAY #x00800009 #x0003344E0848>
- XLIB:WINDOW
- #<UNBOUND>
- #<UNBOUND>
- #<UNBOUND>
- #<UNBOUND>
<8> #<ADD-ON-SYSTEM-FUNCTION XLIB:CHANGE-PROPERTY> 5
- 32
- :WM_STATE
- (0)
- :WM_STATE
- #<XLIB:WINDOW CLOSED-DISPLAY #x00800009 #x0003344E0848>
- #<COMPILED-FUNCTION (SETF STUMPWM::XWIN-STATE)>
- #<XLIB:WINDOW CLOSED-DISPLAY #x00800009 #x0003344E0848>
- 0
<9> #<COMPILED-FUNCTION (SETF STUMPWM::XWIN-STATE)>
- #<XLIB:WINDOW CLOSED-DISPLAY #x00800009 #x0003344E0848>
- #S<screen #<XLIB:SCREEN #x0003344D3178>>
- 
#S(STUMPWM::TILE-GROUP :SCREEN #S<screen #<XLIB:SCREEN #x0003344D3178>> 
:WINDOWS (#S(window "Запрос" #x800009) #S(window "address@hidden:~" 
#x400022)) :NUMBER 1 :NAME "emacs"
   :FRAME-TREE (#S(frame 0 #S(window "Запрос" #x800009) 0 0 1600 1200) 
#S(frame 1 NIL 0 0 1680 1050)) :LAST-FRAME NIL :CURRENT-FRAME #S(frame 0 
#S(window "Запрос" #x800009) 0 0 1600 1200))
- #S(frame 0 #S(window "Запрос" #x800009) 0 0 1600 1200)
- #<COMPILED-FUNCTION STUMPWM::WITHDRAW-WINDOW>
- #S(window "Запрос" #x800009)
<10> #<COMPILED-FUNCTION STUMPWM::WITHDRAW-WINDOW>
- #S<screen #<XLIB:SCREEN #x0003344D3178>>
- #<COMPILED-FUNCTION STUMPWM::DESTROY-WINDOW>
- #S(window "Запрос" #x800009)
<11> #<COMPILED-FUNCTION STUMPWM::DESTROY-WINDOW>
- #S(window "Запрос" #x800009)
- #<COMPILED-FUNCTION #:G17714>
- #<XLIB:WINDOW 10x65535+10922+22008 localhost #x00800009 #x000334579A18>
- #<XLIB:WINDOW 1680x1200+0+0 localhost #x0000006F #x0003344E3340>
- NIL
- 
(:DISPLAY #<XLIB:DISPLAY localhost:1 (The X.Org Foundation R10300000) X11.0 
#x0003344E31E0> :EVENT-CODE 17 :SEND-EVENT-P NIL :SEQUENCE 61 :EVENT-KEY 
:DESTROY-NOTIFY :WINDOW #<XLIB:WINDOW 10x65535+10922+22256 localhost #x00800009 
#x000334579A18> :EVENT-WINDOW
 #<XLIB:WINDOW 1680x1200+0+0 localhost #x0000006F #x0003344E3340>)
<12> #<COMPILED-FUNCTION #:G17714>
- #<COMPILED-FUNCTION #:G17714>
frame binding variables (~ = dynamically):
  | ~ SYSTEM::*ACTIVE-RESTARTS* <--> 
(#S(RESTART :NAME STUMPWM::QUIT-STUMPWM :TEST #<COMPILED-FUNCTION 
SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-24822 
:INVOKE-FUNCTION NIL :REPORT #<FUNCTION :LAMBDA (STREAM) (FORMAT STREAM "Quit 
Stumpwm")>
    :INTERACTIVE #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> 
:MEANINGFULP T))
catch frame for tag #:SIMPLE-RESTART-18485
- #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-2>
<13> #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-2>
- #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-2>
handler frame for conditions (OR XLIB:WINDOW-ERROR XLIB:DRAWABLE-ERROR)
- #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-2>
- #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-1>
compiled tagbody frame for #(NIL)
- 99
- 
#(#(#(NIL
      (:DISPLAY #<XLIB:DISPLAY localhost:1 (The X.Org Foundation R10300000) 
X11.0 #x0003344E31E0> :EVENT-CODE 17 :SEND-EVENT-P NIL :SEQUENCE 61 :EVENT-KEY 
:DESTROY-NOTIFY :WINDOW #<XLIB:WINDOW 10x65535+10922+23000 localhost #x00800009 
#x000334579A18>
       :EVENT-WINDOW #<XLIB:WINDOW 1680x1200+0+0 localhost #x0000006F 
#x0003344E3340>))
    #<COMPILED-FUNCTION #:G17714>)
  NIL)
- 
#(#(NIL
    (:DISPLAY #<XLIB:DISPLAY localhost:1 (The X.Org Foundation R10300000) X11.0 
#x0003344E31E0> :EVENT-CODE 17 :SEND-EVENT-P NIL :SEQUENCE 61 :EVENT-KEY 
:DESTROY-NOTIFY :WINDOW #<XLIB:WINDOW 10x65535+10922+22752 localhost #x00800009 
#x000334579A18> :EVENT-WINDOW
     #<XLIB:WINDOW 1680x1200+0+0 localhost #x0000006F #x0003344E3340>))
  #<COMPILED-FUNCTION #:G17714>)
- 
#(NIL
  (:DISPLAY #<XLIB:DISPLAY localhost:1 (The X.Org Foundation R10300000) X11.0 
#x0003344E31E0> :EVENT-CODE 17 :SEND-EVENT-P NIL :SEQUENCE 61 :EVENT-KEY 
:DESTROY-NOTIFY :WINDOW #<XLIB:WINDOW 10x65535+10922+22504 localhost #x00800009 
#x000334579A18> :EVENT-WINDOW
   #<XLIB:WINDOW 1680x1200+0+0 localhost #x0000006F #x0003344E3340>))
- #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT>
- :DESTROY-NOTIFY
- #<XLIB:DISPLAY localhost:1 (The X.Org Foundation R10300000) X11.0 
#x0003344E31E0>
- 
(:DISPLAY #<XLIB:DISPLAY localhost:1 (The X.Org Foundation R10300000) X11.0 
#x0003344E31E0> :EVENT-CODE 17 :SEND-EVENT-P NIL :SEQUENCE 61 :EVENT-KEY 
:DESTROY-NOTIFY :WINDOW #<XLIB:WINDOW 10x65535+10922+22256 localhost #x00800009 
#x000334579A18> :EVENT-WINDOW
 #<XLIB:WINDOW 1680x1200+0+0 localhost #x0000006F #x0003344E3340>)
<14> #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT>
- #<UNBOUND>
- #<UNBOUND>
- #<UNBOUND>
- #<UNBOUND>
- #<COMPILED-FUNCTION STUMPWM::HANDLE-EVENT>
- #<XLIB:DISPLAY localhost:1 (The X.Org Foundation R10300000) X11.0 
#x0003344E31E0>
<15> #<ADD-ON-SYSTEM-FUNCTION XLIB:PROCESS-EVENT> 2
- 65
- 973417/500000
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-2>
<16> #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-2>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-2>
handler frame for conditions ERROR
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-2>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1>
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP>
<17> #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP>
frame binding variables (~ = dynamically):
  | ~ *PACKAGE* <--> #<PACKAGE COMMON-LISP-USER>
unwind-protect frame
frame binding variables (~ = dynamically):
  | ~ SYSTEM::*ACTIVE-RESTARTS* <--> NIL
catch frame for tag #:SIMPLE-RESTART-24822
- #(NIL "")
- :LOCAL
- 0
- 1
- ""
- #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL>
- ":1.0"
<18> #<COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL>
catch frame for tag :TOP-LEVEL
- #<COMPILED-FUNCTION STUMPWM:STUMPWM>
- ":1.0"
<19> #<COMPILED-FUNCTION STUMPWM:STUMPWM>
- #<COMPILED-FUNCTION STUMPWM:STUMPWM>
EVAL frame for form (STUMPWM:STUMPWM)
- ((QUIT))
frame binding environments
  VAR_ENV <--> NIL
  FUN_ENV <--> NIL
  BLOCK_ENV <--> NIL
  GO_ENV <--> NIL
  DECL_ENV <--> ((DECLARATION XLIB::CLX-VALUES VALUES OPTIMIZE DECLARATION))
frame binding variables #<FRAME-POINTER #x2AAAAF535050> binds (~ = dynamically):
  Next environment: NIL
APPLY frame for call (:LAMBDA)
<20> #<FUNCTION :LAMBDA NIL (STUMPWM:STUMPWM) (QUIT)> 0
- #<FUNCTION :LAMBDA NIL (STUMPWM:STUMPWM) (QUIT)>
- #<COMPILED-FUNCTION EXT::SAVEINITMEM-1>

Thanks!
-- 
wbr, Vitaly