Backtrace

Backtrace for: #<SB-THREAD:THREAD "#<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST \"\" :DISPLAY-ID 1 {1002E673F3}>'s event process." RUNNING {1003B569A3}>
0: ((:METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION CLIM-BACKEND:SELECTION-OBJECT-TYPE (1)> NIL) [fast-method]
1: (SB-PCL::CALL-NO-APPLICABLE-METHOD #<STANDARD-GENERIC-FUNCTION CLIM-BACKEND:SELECTION-OBJECT-TYPE (1)> (NIL))
2: (CLIM-CLX::PROCESS-SELECTION-REQUEST #<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST "" :DISPLAY-ID 1 {1002E673F3}> #<XLIB:WINDOW :1 500019C> #<unused argument> :TARGETS :GDK_SELECTION #<XLIB:WINDOW :1 1E00012> :CLIPBOARD 581774723)
3: (CLIM-CLX::EVENT-HANDLER :DISPLAY #<XLIB:DISPLAY :1 (The X.Org Foundation R12004000)> :WINDOW #<XLIB:WINDOW :1 500019C> :EVENT-KEY :SELECTION-REQUEST :CODE NIL :STATE NIL :MODE NIL :TIME 581774723 :TYPE NIL :WIDTH NIL :HEIGHT NIL :X NIL :Y NIL :ROOT-X NIL :ROOT-Y NIL :DATA NIL :OVERRIDE-REDIRECT-P NIL :SEND-EVENT-P NIL :HINT-P NIL :TARGET :TARGETS :PROPERTY :GDK_SELECTION :REQUESTOR #<XLIB:WINDOW :1 1E00012> :SELECTION :CLIPBOARD :REQUEST NIL :FIRST-KEYCODE #<unused argument> :COUNT #<unused argument>)
4: (XLIB::SELECTION-REQUEST-EVENT-GET #<XLIB:DISPLAY :1 (The X.Org Foundation R12004000)> #S(XLIB::REPLY-BUFFER :SIZE 30 :IBUF8 #(30 0 235 95 131 45 173 34 156 1 0 5 18 0 224 1 250 1 0 0 189 1 0 0 128 1 0 0 0 0 0 0) :NEXT NIL :DATA-SIZE 32) #<FUNCTION CLIM-CLX::EVENT-HANDLER>)
5: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN XLIB:PROCESS-EVENT))
6: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
7: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN XLIB:PROCESS-EVENT) {7F606E09E15B}> #<SB-THREAD:MUTEX "CLX Event Lock" owner: #<SB-THREAD:THREAD "#<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST \"\" :DISPLAY-ID 1 {1002E673F3}>'s event process." RUNNING {1003B569A3}>> T NIL)
8: (XLIB:PROCESS-EVENT #<XLIB:DISPLAY :1 (The X.Org Foundation R12004000)> :HANDLER #<FUNCTION CLIM-CLX::EVENT-HANDLER> :TIMEOUT NIL :PEEK-P NIL :DISCARD-P T :FORCE-OUTPUT-P T)
9: ((:METHOD CLIM:PROCESS-NEXT-EVENT (CLIM-CLX::CLX-BASIC-PORT)) #<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST "" :DISPLAY-ID 1 {1002E673F3}> :WAIT-FUNCTION NIL :TIMEOUT NIL) [fast-method]
10: ((SB-PCL::EMF CLIM:PROCESS-NEXT-EVENT) #<unused argument> #<unused argument> #<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST "" :DISPLAY-ID 1 {1002E673F3}>)
11: ((LAMBDA NIL :IN CLIM-CLX:INITIALIZE-CLX))
12: ((LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS))
13: ((FLET SB-UNIX::BODY :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
14: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
15: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
16: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
17: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {7F606E09ED7B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "#<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST \"\" :DISPLAY-ID 1 {1002E673F3}>'s event process." RUNNING {1003B569A3}>> NIL T NIL)
18: (SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE #<SB-THREAD:THREAD "#<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST \"\" :DISPLAY-ID 1 {1002E673F3}>'s event process." RUNNING {1003B569A3}> NIL #<CLOSURE (LAMBDA NIL :IN BORDEAUX-THREADS::BINDING-DEFAULT-SPECIALS) {1003B5694B}> NIL)
19: ("foreign function: call_into_lisp")
20: ("foreign function: new_thread_trampoline")



2] (describe CLIM:PORT)

#<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST "" :DISPLAY-ID 1 {1002E673F3}>
  [standard-object]

Slots with :INSTANCE allocation:
  SERVER-PATH                            = (:CLX-TTF :HOST "" :DISPLAY-ID 1 :SCREEN-ID 0 :PROTOCOL :LOCAL)
  PROPERTIES                             = NIL
  GRAFTS                                 = (#<CLIM-CLX:CLX-GRAFT {1003063823}>)
  FRAME-MANAGERS                         = (#<CLIM-CLX::CLX-FRAME-MANAGER {1001B60003}>)
  SHEET->MIRROR                          = #<HASH-TABLE :TEST EQ :COUNT 83 {1003067BC3}>
  MIRROR->SHEET                          = #<HASH-TABLE :TEST EQ :COUNT 83 {1003067C53}>
  PIXMAP->MIRROR                         = #<HASH-TABLE :TEST EQ :COUNT 0 {1003067CE3}>
  MIRROR->PIXMAP                         = #<HASH-TABLE :TEST EQ :COUNT 0 {1003067D73}>
  EVENT-PROCESS                          = #<SB-THREAD:THREAD "#<MCCLIM-TRUETYPE::CLX-TTF-PORT :HOST \"\" :DISPLA..
  LOCK                                   = #<SB-THREAD:MUTEX "port lock" (free)>
  TEXT-STYLE-MAPPINGS                    = #<HASH-TABLE :TEST EQ :COUNT 4 {1003067E23}>
  POINTER-SHEET                          = #<CLIM-CLX::CLX-736-DREI-TEXT-EDITOR-SUBSTRATE TEXTUAL-DREI-SYNTAX-VIE..
  MIRRORED-SHEET->CURRENT-POINTER-CURSOR = #<HASH-TABLE :TEST EQ :COUNT 86 {1003067EB3}>
  SELECTIONS                             = #<HASH-TABLE :TEST EQL :COUNT 1 {1003067F43}>
  POINTER-GRAB-SHEET                     = NIL
  PORT-POINTER-PRESSED-SHEET             = NIL
  DISPLAY                                = #<XLIB:DISPLAY :1 (The X.Org Foundation R12004000)>
  SCREEN                                 = #<XLIB:SCREEN :1.0 5760x1200x24 TRUE-COLOR>
  WINDOW                                 = #<XLIB:WINDOW :1 2F5>
  FONT-FAMILIES                          = (#<MCCLIM-TRUETYPE::TRUETYPE-FONT-FAMILY DejaVu Sans>)
  CURSOR-TABLE                           = #<HASH-TABLE :TEST EQ :COUNT 23 {1003078003}>
  POINTER                                = #<CLIM-CLX::CLX-POINTER {1003078093}>
  OUTSTANDING-REQUEST                    = #<CLIM-BACKEND:SELECTION-OBJECT {10082E8373}>
  MODIFIER-CACHE                         = #((0 . 0) (256 . 0) (0 . 1) (256 . 1) (512 . 0) (768 . 0) (512 . 1)..
  COLOR-TABLE                            = #<HASH-TABLE :TEST EQ :COUNT 11 {10030788C3}>
  DESIGN-CACHE                           = #<HASH-TABLE :TEST EQ :COUNT 0 {1003078953}>
  
  

2] (describe (slot-value CLIM:PORT 'clim-clx::OUTSTANDING-REQUEST))
#<CLIM-BACKEND:SELECTION-OBJECT {10082E8373}>
  [standard-object]

Slots with :INSTANCE allocation:
  CONTENT                        = (104 101 108 108 111)
  TYPE                           = :UTF8_STRING
  OWNER                          = #<CLIM-CLX::CLX-736-POINTER-DOCUMENTATION-PANE CLIM-INTERNALS::%POINTE..



2] (alexandria:hash-table-alist (slot-value CLIM:PORT 'climi::SELECTIONS))
((:CLIPBOARD . #<CLIM-BACKEND:SELECTION-OBJECT {1008353D33}>))



2] (cdr (first (alexandria:hash-table-alist (slot-value CLIM:PORT 'climi::SELECTIONS))))
#<CLIM-BACKEND:SELECTION-OBJECT {1008353D33}>



2] (describe *)
#<CLIM-BACKEND:SELECTION-OBJECT {1008353D33}>
  [standard-object]

Slots with :INSTANCE allocation:
  CONTENT                        = "hello"
  TYPE                           = STRING
  OWNER                          = #<CLIM-CLX::CLX-736-DREI-TEXT-EDITOR-SUBSTRATE TEXTUAL-DREI-SYNTAX-VIE..