Paste number 3239: backtrace from clim-listener pointer-grab debugger thing

Index of paste annotations: 1

Paste number 3239: backtrace from clim-listener pointer-grab debugger thing
Pasted by: antifuchs
When:5 years, 10 months ago
Share:Tweet this! | http://paste.lisp.org/+2HZ
Channel:#lisp
Paste contents:
Raw Source | XML | Display As 
debugger invoked on a TYPE-ERROR in thread 2894:
  The value #P"/home/asf/./swish++.conf"
  is not of type
    CLIM-INTERNALS::PRESENTATION-TRANSLATOR-MENU-ITEM.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT             ] Return to application command loop
  1: [RETURN-TO-LISTENER] Return to listener.
  2:                      Reduce debugger level (leaving debugger, returning to
                          toplevel).
  3: [TOPLEVEL          ] Restart at toplevel READ/EVAL/PRINT loop.
("varargs entry for CLIM:CALL-PRESENTATION-MENU"
 #<CLIM:STANDARD-PRESENTATION X 180:282 Y 249:265 {ADA1169}>
 ((CLIM:MENU-ITEM . #) (CLIM:COMMAND . #))
 #<CLIM-LISTENER::LISTENER {B0D0D91}>
 #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>
 278
 264
 :FOR-MENU
 T
 :LABEL
 NIL)
0] bac 5
0: ("varargs entry for CLIM:CALL-PRESENTATION-MENU"
    #<CLIM:STANDARD-PRESENTATION X 180:282 Y 249:265 {ADA1169}>
    ((CLIM:MENU-ITEM . #) (CLIM:COMMAND . #))
    #<CLIM-LISTENER::LISTENER {B0D0D91}>
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>
    278
    264
    :FOR-MENU
    T
    :LABEL
    NIL)
1: ((CLIM:CALL-PRESENTATION-TRANSLATOR
     (CLIM-INTERNALS::PRESENTATION-ACTION T T T T T T T))
    #<unavailable argument>
    #<unavailable argument>
    #<Action from T to NIL {BA07561}>
    #<CLIM:STANDARD-PRESENTATION X 180:282 Y 249:265 {ADA1169}>
    CLIM:MENU-ITEM
    #<CLIM-LISTENER::LISTENER {B0D0D91}>
    #<CLIM:POINTER-BUTTON-PRESS-EVENT {AFB10A1}>
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>
    278
    264)
2: (CLIM:THROW-HIGHLIGHTED-PRESENTATION
    #<CLIM:STANDARD-PRESENTATION X 180:282 Y 249:265 {ADA1169}>
    ((CLIM:MENU-ITEM . #) (CLIM:COMMAND . #))
    #<CLIM:POINTER-BUTTON-PRESS-EVENT {AFB10A1}>)
3: ((CLIM:STREAM-READ-GESTURE (CLIM:STANDARD-EXTENDED-INPUT-STREAM))
    #<unavailable argument>
    #<unavailable argument>
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>
    (:TIMEOUT NIL
              :INPUT-WAIT-TEST
              #<FUNCTION CLIM-INTERNALS::INPUT-CONTEXT-WAIT-TEST>
              :INPUT-WAIT-HANDLER
              #<FUNCTION CLIM-INTERNALS::INPUT-CONTEXT-EVENT-HANDLER>
              :POINTER-BUTTON-PRESS-HANDLER
              ...))
4: ("#'(LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. ...) (DECLARE #) ...)"
    #<unavailable argument>
    #<unavailable argument>
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>
    (:TIMEOUT NIL
              :INPUT-WAIT-TEST
              #<FUNCTION CLIM-INTERNALS::INPUT-CONTEXT-WAIT-TEST>
              :INPUT-WAIT-HANDLER
              #<FUNCTION CLIM-INTERNALS::INPUT-CONTEXT-EVENT-HANDLER>
              :POINTER-BUTTON-PRESS-HANDLER
              ...))
5: ((CLIM:STREAM-READ-GESTURE (CLIM:STANDARD-INPUT-EDITING-STREAM))
    (#(NIL 9 8 5 7) . #())
    #<unavailable argument>
    #<CLIM:STANDARD-INPUT-EDITING-STREAM {AE2ABA1}>
    (:TIMEOUT NIL
              :PEEK-P
              T
              :INPUT-WAIT-TEST
              #<FUNCTION CLIM-INTERNALS::INPUT-CONTEXT-WAIT-TEST>
              :INPUT-WAIT-HANDLER
              ...))
6: ("#'(LAMBDA (STREAM) (LET # #))"
    #<CLIM:STANDARD-INPUT-EDITING-STREAM {AE2ABA1}>)
7: ((CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING
     (CLIM:EXTENDED-INPUT-STREAM T T T T))
    #<unavailable argument>
    #<unavailable argument>
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>
    #<FUNCTION "CLOSURE" {AE2A64D}>
    #<FUNCTION "CLOSURE" {AE2A65D}>
    ""
    CLIM:STANDARD-INPUT-EDITING-STREAM)
8: ((CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND
                                               (CLIM:EXTENDED-OUTPUT-STREAM T
                                                                            T
                                                                            T
                                                                            T))
    #<unavailable argument>
    #S(SB-PCL::FAST-METHOD-CALL
       :FUNCTION #<FUNCTION # {975F945}>
       :PV-CELL NIL
       :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
                            :FUNCTION #
                            :PV-CELL NIL
                            :NEXT-METHOD-CALL NIL
                            :ARG-INFO (5))
       :ARG-INFO (5))
    #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>
    #<FUNCTION "CLOSURE" {AE2A64D}>
    #<FUNCTION "CLOSURE" {AE2A65D}>
    ""
    CLIM:STANDARD-INPUT-EDITING-STREAM)
9: ((CLIM:READ-FRAME-COMMAND (CLIM-LISTENER::LISTENER))
    #<unavailable argument>
    #<unavailable argument>
    #<CLIM-LISTENER::LISTENER {B0D0D91}>
    (:STREAM #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>))
10: ((CLIM:READ-FRAME-COMMAND :AROUND (CLIM:APPLICATION-FRAME))
     #<unavailable argument>
     #S(SB-PCL::FAST-METHOD-CALL
        :FUNCTION #<FUNCTION # {B24EC05}>
        :PV-CELL NIL
        :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
                             :FUNCTION #
                             :PV-CELL NIL
                             :NEXT-METHOD-CALL NIL
                             :ARG-INFO (1 . T))
        :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {B0D0D91}>
     (:STREAM #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>))
11: ((CLIM:READ-FRAME-COMMAND :AROUND (CLIM-LISTENER::LISTENER))
     #<unavailable argument>
     #S(SB-PCL::FAST-METHOD-CALL
        :FUNCTION #<FUNCTION # {A17C1AD}>
        :PV-CELL NIL
        :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
                             :FUNCTION #
                             :PV-CELL NIL
                             :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
                                                  :FUNCTION #
                                                  :PV-CELL NIL
                                                  :NEXT-METHOD-CALL NIL
                                                  :ARG-INFO (1 . T))
                             :ARG-INFO (1 . T))
        :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {B0D0D91}>
     (:STREAM #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {B0D3BD9}>))
12: ((CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME))
     #<unavailable argument>
     #<unavailable argument>
     #<CLIM-LISTENER::LISTENER {B0D0D91}>
     (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT))
13: ("XEP for (CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME))"
     4
     #<unavailable argument>
     #<unavailable argument>
     #<CLIM-LISTENER::LISTENER {B0D0D91}>
     (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT))[:EXTERNAL]
14: ((CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME))
     #<unavailable argument>
     #<unavailable argument>
     #<CLIM-LISTENER::LISTENER {B0D0D91}>
     #<unavailable argument>)
15: ((CLIM:RUN-FRAME-TOP-LEVEL (CLIM-LISTENER::LISTENER))
     #<unavailable argument>
     #S(SB-PCL::FAST-METHOD-CALL
        :FUNCTION #<FUNCTION # {A17A8BD}>
        :PV-CELL NIL
        :NEXT-METHOD-CALL NIL
        :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {B0D0D91}>
     (:LISTENER-FUNCALL NIL))
16: ((CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:APPLICATION-FRAME))
     #<unavailable argument>
     #S(SB-PCL::FAST-METHOD-CALL
        :FUNCTION #<FUNCTION # {B24D675}>
        :PV-CELL NIL
        :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
                             :FUNCTION #
                             :PV-CELL NIL
                             :NEXT-METHOD-CALL NIL
                             :ARG-INFO (1 . T))
        :ARG-INFO (1 . T))
     #<CLIM-LISTENER::LISTENER {B0D0D91}>
     (:LISTENER-FUNCALL NIL))
17: (SB-INT:EVAL-IN-LEXENV
     2
     (CLIM-LISTENER:RUN-LISTENER)
     #S(SB-KERNEL:LEXENV
        :FUNS NIL
        :VARS NIL
        :BLOCKS NIL
        :TAGS NIL
        :TYPE-RESTRICTIONS NIL
        :LAMBDA NIL
        :CLEANUP NIL
        ...))[:EXTERNAL]

Annotations for this paste:

Annotation number 1: how to get it:
Pasted by: antifuchs
When:5 years, 10 months ago
Share:Tweet this! | http://paste.lisp.org/+2HZ/1
Paste contents:
Raw Source | Display As 
 * run the current CVS clim listener (I used sbcl), 
 * show any presentation that can be right-clicked (I used Show 
   Directory /home/asf/)
 * right click the presentation
 * when the presentation menu pops up, left click the same presentation

=> you get the debugger, with the cursor grabbed by the listener.

Colorize as:
Show Line Numbers
Index of paste annotations: 1

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.