Re: [STUMP] Re: Bug, or something, Stumpwm crashing when creating a new window

[Magnus Henoch]

I have the same problem.  Latest stumpwm from git, SBCL 1.0.19.35,
NetBSD/powerpc.

I raised the debug level to 3 to get the debug message from the event
handler (the "map request" line).  I also added a type declaration to
PROCESS-MAPPED-WINDOW, which removes a frame or two from my backtrace.

10:45:26 key-press: #S(STUMPWM::KEY
              :KEYSYM 99
              :SHIFT NIL
              :CONTROL NIL
              :META NIL
              :ALT NIL
              :HYPER NIL
              :SUPER NIL) 0 "exec xterm"
10:45:26 <<< :KEY-PRESS
10:45:26 >>> :FOCUS-OUT
10:45:26 <<< :FOCUS-OUT
10:45:26 >>> :ENTER-NOTIFY
10:45:26 <<< :ENTER-NOTIFY
10:45:26 >>> :FOCUS-IN
10:45:26 <<< :FOCUS-IN
10:45:26 >>> :UNMAP-NOTIFY
10:45:26 UNMAP: NIL T NIL
10:45:26 <<< :UNMAP-NOTIFY
10:45:27 >>> :CREATE-NOTIFY
10:45:27 <<< :CREATE-NOTIFY
10:45:27 >>> :CONFIGURE-REQUEST
10:45:27 CONFIGURE REQUEST :ABOVE #<XLIB:WINDOW :0 E0001C> 0 0 12 19 1 12
10:45:27 <<< :CONFIGURE-REQUEST
10:45:27 >>> :CONFIGURE-NOTIFY
10:45:27 <<< :CONFIGURE-NOTIFY
10:45:27 >>> :CONFIGURE-REQUEST
10:45:27 CONFIGURE REQUEST :ABOVE #<XLIB:WINDOW :0 E0001C> 0 0 486 318 1 12
10:45:27 <<< :CONFIGURE-REQUEST
10:45:27 >>> :CONFIGURE-NOTIFY
10:45:27 <<< :CONFIGURE-NOTIFY
10:45:27 >>> :MAP-REQUEST
10:45:27 map request: #<WINDOW :0 E0001C> #<WINDOW :0 44> NIL
Caught 'The value NIL is not of type STUMPWM::SCREEN.' at the top level. Please 
report this.
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {517FD97D}>)[:EXTERNAL]
1: (SB-DEBUG:BACKTRACE 100 #<BROADCAST-STREAM {521A87C1}>)
2: (STUMPWM::PRINT-BACKTRACE 100)
3: ((FLET #:LAMBDA454) #<TYPE-ERROR {517F9F49}>)
4: (SIGNAL #<TYPE-ERROR {517F9F49}>)[:EXTERNAL]
5: (ERROR TYPE-ERROR)[:EXTERNAL]
6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #XEF91BF28)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XFFFFD180 :TYPE (*
                                                            (SB-ALIEN:STRUCT
                                                             
SB-VM::OS-CONTEXT-T-STRUCT))>
    (774 838))
7: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #XEF91BF28)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XFFFFD180 :TYPE (*
                                                            (SB-ALIEN:STRUCT
                                                             
SB-VM::OS-CONTEXT-T-STRUCT))>
    (774 838))[:EXTERNAL]
8: (SB-KERNEL:INTERNAL-ERROR
    #.(SB-SYS:INT-SAP #XFFFFD180)
    #<unavailable argument>)
9: ("foreign function: call_into_lisp")
10: (STUMPWM::PROCESS-MAPPED-WINDOW NIL #<XLIB:WINDOW :0 E0001C>)[:EXTERNAL]
11: ((LABELS #:G158)
     :PARENT
     #<XLIB:WINDOW :0 44>
     :SEND-EVENT-P
     NIL
     :WINDOW
     #<XLIB:WINDOW :0 E0001C>)
12: ((FLET #:FORM-FUN-[HANDLE-EVENT]1011))
13: (STUMPWM::HANDLE-EVENT)[:EXTERNAL]
14: (XLIB::MAP-REQUEST-EVENT-GET
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10300000)>
     #S(XLIB::REPLY-BUFFER
        :SIZE 20
        :IBUF8 #(20 175 1 203 0 0 0 68 0 224 0 28 0 0 0 60 1 158 44 48 1 131
                 247 88 1 157 59 152 255 255 217 64)
        :NEXT NIL
        :DATA-SIZE 32)
     #<FUNCTION (SB-C::&OPTIONAL-DISPATCH STUMPWM::HANDLE-EVENT) {52771605}>)
15: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
16: (XLIB:PROCESS-EVENT #<XLIB:DISPLAY :0 (The X.Org Foundation 
R10300000)>)[:EXTERNAL]
17: (STUMPWM::STUMPWM-INTERNAL-LOOP)
18: (STUMPWM::STUMPWM-INTERNAL ":0.0")
19: (STUMPWM ":0.0")
20: ((LAMBDA ()))
21: (SB-INT:SIMPLE-EVAL-IN-LEXENV
     (WITH-OPEN-FILE
         (LOG "/var/tmp/stumpwm.log" :DIRECTION :OUTPUT :IF-EXISTS :RENAME)
       (LET* ((COMMON-LISP-USER::OUTPUT
               (MAKE-BROADCAST-STREAM LOG *TERMINAL-IO*))
              (*STANDARD-OUTPUT* COMMON-LISP-USER::OUTPUT)
              (*ERROR-OUTPUT* COMMON-LISP-USER::OUTPUT))
         (STUMPWM)))
     #<NULL-LEXENV>)
22: (SB-FASL::LOAD-AS-SOURCE
     #<SB-SYS:FD-STREAM for "file /home/magnus/start-stumpwm.lisp" {50909269}>
     NIL
     NIL)
23: ((FLET SB-FASL::LOAD-STREAM)
     #<SB-SYS:FD-STREAM for "file /home/magnus/start-stumpwm.lisp" {50909269}>)
24: (LOAD #P"/home/magnus/start-stumpwm.lisp")[:EXTERNAL]
25: (SB-INT:SIMPLE-EVAL-IN-LEXENV
     (LOAD #P"/home/magnus/start-stumpwm.lisp")
     #<NULL-LEXENV>)
26: (SB-IMPL::PROCESS-EVAL-OPTIONS ((LOAD #P"/home/magnus/start-stumpwm.lisp")))
27: (SB-IMPL::TOPLEVEL-INIT)
28: ((LABELS SB-IMPL::RESTART-LISP))

debugger invoked on a SIMPLE-ERROR:
  Error during processing of --eval option (LOAD
                                            
#P"/home/magnus/start-stumpwm.lisp"):

  The value NIL is not of type STUMPWM::SCREEN.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [TOP-LEVEL   ] Return to stumpwm's top level
  1: [QUIT-STUMPWM] Quit Stumpwm
  2: [CONTINUE    ] Ignore and continue with next --eval option.
  3: [ABORT       ] Skip rest of --eval options.
  4:                Skip to toplevel READ/EVAL/PRINT loop.
  5: [QUIT        ] Quit SBCL (calling #'QUIT, killing the process).

((FLET #:LAMBDA135) #<TYPE-ERROR {517F9F49}>)
0