stumpwm crashed by application quitting too quickly

An application which connects to X, opens a window and initialises
OpenGL then immediately quits without drawing anything or waiting
for any X events can cause stumpwm to crash. The application quits
immediately after calling XMapWindow followed by XSelectInput then
XFlush.

StumpWM doesn't crash every time but it is reasonably easy to
replicate the problem by repeatedly running the short-lived
application.

OS is OpenBSD 7.8

StumpWM --version reports SBCL 2.5.8.openbsd.sbcl-2.5.8 which appears
to be sbcl's version, the package is version 24.11p7 as confirmed
in line 21 of the stack trace (surely that should be line 4?)

StumpWM is minimally customised; a few key bindings, 5 groups.

Please note I am not subscribed to this mailing list.

Matthew

Caught 'The slot STUMPWM:GROUP is unbound in the object #<WINDOW "" #x1400=
002>.' at the top level. Please report this.
Backtrace for: #<SB-THREAD:THREAD tid=3D602038 "main thread" RUNNING {1101=
338003}>
0: (STUMPWM::BACKTRACE-STRING)
1: ((:METHOD STUMPWM::HANDLE-TOP-LEVEL-CONDITION (SERIOUS-CONDITION)) #<UN=
BOUND-SLOT GROUP {1103B115B3}>) [fast-method]
2: (SB-KERNEL::%SIGNAL #<UNBOUND-SLOT GROUP {1103B115B3}>)
3: (ERROR #<UNBOUND-SLOT GROUP {1103B115B3}>)
4: (SB-KERNEL:WITH-SIMPLE-CONDITION-RESTARTS ERROR NIL UNBOUND-SLOT :NAME =
GROUP :INSTANCE #<WINDOW "" #x1400002>)
5: ((:METHOD SLOT-UNBOUND (T T T)) #<unused argument> #<WINDOW "" #x140000=
2> GROUP) [fast-method]
6: ((LAMBDA (SB-KERNEL:INSTANCE) :IN SB-PCL::MAKE-OPTIMIZED-STD-READER-MET=
HOD-FUNCTION) #<WINDOW "" #x1400002>)
7: (WINDOW-SCREEN #<WINDOW "" #x1400002>)
8: (STUMPWM::DESTROY-WINDOW #<WINDOW "" #x1400002>)
9: (STUMPWM::HANDLE-EVENT :DISPLAY #<XLIB:DISPLAY :0 (The X.Org Foundation=
 R12101018)> :EVENT-KEY :DESTROY-NOTIFY :EVENT-CODE 17 :SEND-EVENT-P NIL :=
SEQUENCE 48078 :EVENT-WINDOW #<XLIB:WINDOW :0 4DD> :WINDOW #<XLIB:WINDOW :=
0 1400002>)
10: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN XLIB:PROCESS-EVENT))
11: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-THREAD::CALL-WITH-RECURSIVE-L=
OCK-TIMED))
12: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK-TIMED #<FUNCTION (FLET SB-THREAD:=
:WITH-RECURSIVE-LOCK-THUNK :IN XLIB:PROCESS-EVENT) {B7004F4717B}> #<SB-THR=
EAD:MUTEX "CLX Event Lock" taken owner=3Dmain thread> T 0)
13: (XLIB:PROCESS-EVENT #<XLIB:DISPLAY :0 (The X.Org Foundation R12101018)=
> :HANDLER #<FUNCTION STUMPWM::HANDLE-EVENT> :TIMEOUT 0 :PEEK-P NIL :DISCA=
RD-P NIL :FORCE-OUTPUT-P T)
14: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-THREAD::CALL-WITH-RECURSIVE-L=
OCK))
15: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<FUNCTION (FLET SB-THREAD::WITH-=
RECURSIVE-LOCK-THUNK :IN STUMPWM::DISPATCH-ALL) {B7004F4740B}> #<SB-THREAD=
:MUTEX "CLX Event Lock" taken owner=3Dmain thread>)
16: ((FLET STUMPWM::DISPATCH-ALL :IN "/usr/obj/ports/stumpwm-24.11/stumpwm=
-24.11/stumpwm.lisp") #<XLIB:DISPLAY :0 (The X.Org Foundation R12101018)>)
17: ((:METHOD IO-LOOP (STUMPWM::SBCL-IO-LOOP)) #<STUMPWM::SBCL-IO-LOOP {11=
03792653}> :DESCRIPTION "StumpWM") [fast-method]
18: (STUMPWM::STUMPWM-INTERNAL-LOOP)
19: (STUMPWM::STUMPWM-INTERNAL ":0")
20: (STUMPWM ":0")
21: ((LAMBDA NIL :IN "/usr/obj/ports/stumpwm-24.11/stumpwm-24.11/make-imag=
e.lisp"))
22: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
23: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
24: (SB-IMPL::%START-LISP)