Plaster
New
List
Login
common-lisp
default
phoe
2020.08.12 13:22:33
The value 50909 is not of type (SIGNED-BYTE 16) [Condition of type TYPE-ERROR] Restarts: 0: [ABORT] Return to application command loop. 1: [RETRY] Retry SLIME REPL evaluation request. 2: [*ABORT] Return to SLIME's top level. 3: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {100C799DC3}>) Backtrace: 0: (XLIB::WRITE-VECTOR-INT16 #<XLIB:DISPLAY :0 (The X.Org Foundation R12008000)> 136 #(16 19 16 19 16 19 ...) 0 38) Locals: ARRAY = #(16 19 16 19 16 19 ...) BOFFSET = 136 BUFFER = #<XLIB:DISPLAY :0 (The X.Org Foundation R12008000)> DATA = #(16 19 16 19 16 19 ...) END = 38 START = 0 1: (XLIB::WRITE-SEQUENCE-INT16 #<XLIB:DISPLAY :0 (The X.Org Foundation R12008000)> 136 #(16 19 16 19 16 19 ...) 0 38 NIL) Locals: BOFFSET = 136 BUFFER = #<XLIB:DISPLAY :0 (The X.Org Foundation R12008000)> DATA = #(16 19 16 19 16 19 ...) END = 38 #:G0 = #(16 19 16 19 16 19 ...) START = 0 TRANSFORM = NIL 2: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN XLIB:DRAW-LINES)) Locals: XLIB::.DISPLAY. = #<XLIB:DISPLAY :0 (The X.Org Foundation R12008000)> XLIB:DRAWABLE = #<XLIB:WINDOW :0 C400027> XLIB:GCONTEXT = #<XLIB:GCONTEXT :0 205520946> XLIB::POINTS = #(16 19 16 19 16 19 ...) XLIB::RELATIVE-P = NIL 3: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK)) Locals: GOT-IT = T MUTEX = #<SB-THREAD:MUTEX "CLX Buffer Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100C799DC3}>> 4: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN XLIB:DRAW-LINES) {7FA600D53F2B}> #<SB-THREAD:MUTEX "CLX Buffer Lock" owner: #<SB-THREAD:THREAD "repl-threa.. Locals: GOT-IT = T MUTEX = #<SB-THREAD:MUTEX "CLX Buffer Lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {100C799DC3}>> SB-C::THING = #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN XLIB:DRAW-LINES) {7FA600D53F2B}> TIMEOUT = NIL WAITP = T 5: (XLIB:DRAW-LINES #<XLIB:WINDOW :0 C400027> #<XLIB:GCONTEXT :0 205520946> #(16 19 16 19 16 19 ...) :RELATIVE-P NIL :FILL-P NIL :SHAPE :COMPLEX) Locals: #:.DEFAULTING-TEMP. = NIL #:.DEFAULTING-TEMP.#1 = NIL #:.DEFAULTING-TEMP.#2 = :COMPLEX .DISPLAY. = #<XLIB:DISPLAY :0 (The X.Org Foundation R12008000)> DRAWABLE = #<XLIB:WINDOW :0 C400027> FILL-P = NIL GCONTEXT = #<XLIB:GCONTEXT :0 205520946> POINTS = #(16 19 16 19 16 19 ...) RELATIVE-P = NIL SHAPE = :COMPLEX 6: (MCCLIM-BEZIER-CLX::%CLX-MEDIUM-DRAW-BEZIER-DESIGN #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> :FILLED NIL) Locals: #:.DEFAULTING-TEMP. = NIL COORD-VEC = #(16 19 16 19 16 19 ...) DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> FILLED = NIL #:G0 = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> GC = #<XLIB:GCONTEXT :0 205520946> INK = #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> MIRROR = #<XLIB:WINDOW :0 C400027> REGION = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> TR = #<CLIM-INTERNALS::STANDARD-IDENTITY-TRANSFORMATION {1002C9CB23}> 7: ((:METHOD MCCLIM-BEZIER:MEDIUM-DRAW-BEZIER-DESIGN* (CLIM-CLX:CLX-MEDIUM MCCLIM-BEZIER:BEZIER-CURVE)) #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}>) [fast-method.. Locals: CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> CLIM:MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> 8: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Extensions/bezier/bezier.lisp") #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<MCCLIM-BEZIER:.. Locals: SB-PCL::.ARGS-TAIL. = NIL SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL ..) SB-PCL::CNM-ARGS = (#<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}>) CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> CLIM:DESIGN#1 = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> #:EMF-N-5 = #S(SB-PCL::FAST-METHOD-CALL ..) #:G6 = #S(SB-PCL::FAST-METHOD-CALL ..) CLIM:MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> CLIM:MEDIUM#1 = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> 9: ((:METHOD MCCLIM-BEZIER:MEDIUM-DRAW-BEZIER-DESIGN* :AROUND (CLIM-BACKEND:TRANSFORM-COORDINATES-MIXIN T)) #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}>) [fast-me.. Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL ..) CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> #:G27 = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> CLIM:MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> MCCLIM-BEZIER::TR = #<CLIM-INTERNALS::STANDARD-IDENTITY-TRANSFORMATION {1002C9CB23}> 10: ((:METHOD MCCLIM-BEZIER:MEDIUM-DRAW-BEZIER-DESIGN* (CLIM:BASIC-SHEET T)) #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}>) [fast-method] Locals: CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> CLIM:SHEET = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 11: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Extensions/bezier/bezier.lisp")) Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD MCCLIM-BEZIER:MEDIUM-DRAW-BEZIER-DESIGN* (CLIM:BASIC-SHEET T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) SB-PCL::CNM-ARGS = NIL CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> #:EMF-N-55 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD MCCLIM-BEZIER:MEDIUM-DRAW-BEZIER-DESIGN* (CLIM:BASIC-SHEET T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) #:G56 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD MCCLIM-BEZIER:MEDIUM-DRAW-BEZIER-DESIGN* (CLIM:BASIC-SHEET T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) STREAM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 12: ((:METHOD MCCLIM-BEZIER:MEDIUM-DRAW-BEZIER-DESIGN* :AROUND (CLIM:OUTPUT-RECORDING-STREAM T)) #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013.. Locals: SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD MCCLIM-BEZIER:MEDIUM-DRAW-BEZIER-DESIGN* (CLIM:BASIC-SHEET T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2)) CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> STREAM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 13: ((FLET CLIM-INTERNALS::GRAPHICS-OP :IN MCCLIM-BEZIER:DRAW-BEZIER-DESIGN*) #<unused argument>) Locals: CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> CLIM:SHEET = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 14: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<CLOSUR.. Locals: #:.DEFAULTING-TEMP. = #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> #:.DEFAULTING-TEMP.#1 = NIL #:.DEFAULTING-TEMP.#2 = NIL #:.DEFAULTING-TEMP.#3 = NIL #:.DEFAULTING-TEMP.#4 = 2 #:.DEFAULTING-TEMP.#5 = NIL #:.DEFAULTING-TEMP.#6 = NIL #:.DEFAULTING-TEMP.#7 = NIL #:.DEFAULTING-TEMP.#8 = NIL #:.DEFAULTING-TEMP.#9 = NIL #:.DEFAULTING-TEMP.#10 = NIL #:.DEFAULTING-TEMP.#11 = NIL #:.DEFAULTING-TEMP.#12 = NIL CLIM-INTERNALS::CHANGED-LINE-STYLE = T CLIM-INTERNALS::CHANGED-TEXT-STYLE = NIL CLIM-INTERNALS::CLIPPING-REGION = NIL CLIM-INTERNALS::DASHES-P = NIL CLIM-INTERNALS::FUNC = #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN MCCLIM-BEZIER:DRAW-BEZIER-DESIGN*) {7FA600D54CFB}> CLIM-INTERNALS::INK = #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> CLIM-INTERNALS::LINE-CAP-SHAPE = NIL CLIM-INTERNALS::LINE-DASHES = NIL CLIM-INTERNALS::LINE-JOINT-SHAPE = NIL CLIM:LINE-STYLE = #<CLIM:STANDARD-LINE-STYLE :UNIT :NORMAL :THICKNESS 2 :JOINT-SHAPE :MITER :CAP-SHAPE :BUTT :DASHES NIL> CLIM:LINE-STYLE-P = NIL CLIM-INTERNALS::LINE-THICKNESS = 2 CLIM-INTERNALS::LINE-UNIT = NIL CLIM:MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #:N-SUPPLIED-26 = NIL #:N-SUPPLIED-27 = NIL #:N-SUPPLIED-28 = NIL #:N-SUPPLIED-29 = NIL #:N-SUPPLIED-30 = NIL #:N-SUPPLIED-31 = NIL CLIM-INTERNALS::OLD-CLIP = #<CLIM-INTERNALS::EVERYWHERE-REGION {1002A827C3}> CLIM-INTERNALS::OLD-INK = #<CLIM-INTERNALS::%FOREGROUND-INK {1002FFD5A3}> CLIM-INTERNALS::OLD-LINE-STYLE = #<CLIM:STANDARD-LINE-STYLE :UNIT :NORMAL :THICKNESS 1 :JOINT-SHAPE :MITER :CAP-SHAPE :BUTT :DASHES NIL> CLIM-INTERNALS::OLD-TEXT-STYLE = #<CLIM:STANDARD-TEXT-STYLE :SANS-SERIF :ROMAN :NORMAL> CLIM-INTERNALS::OLD-TRANSFORM = #<CLIM-INTERNALS::STANDARD-IDENTITY-TRANSFORMATION {1002C9CB23}> CLIM-INTERNALS::ORIG-MEDIUM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> CLIM-INTERNALS::TEXT-FACE = NIL CLIM-INTERNALS::TEXT-FACE-P = NIL CLIM-INTERNALS::TEXT-FAMILY = NIL CLIM-INTERNALS::TEXT-FAMILY-P = NIL CLIM:TEXT-SIZE = NIL CLIM-INTERNALS::TEXT-SIZE-P = NIL CLIM:TEXT-STYLE = #<CLIM:STANDARD-TEXT-STYLE :SANS-SERIF :ROMAN :NORMAL> CLIM:TEXT-STYLE-P = NIL CLIM:TRANSFORMATION = NIL 15: ((SB-PCL::EMF CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL) #<unused argument> #<unused argument> #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTO.. Locals: SB-PCL::.ARG0. = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> SB-PCL::.ARG1. = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> SB-PCL::.ARG2. = #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN MCCLIM-BEZIER:DRAW-BEZIER-DESIGN*) {7FA600D54CFB}> SB-PCL::.KEYARGS-START. = 0 SB-PCL::.VALID-KEYS. = T SB-PCL::EFFECTIVE-METHOD-GENSYM-0 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3 . T)) SB-C::X = 4 SB-DEBUG::MORE = (:INK #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> :LINE-THICKNESS 2) 16: ((LABELS #:G6 :IN CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS) #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}>) Locals: CLIM-INTERNALS::FUNC = #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN MCCLIM-BEZIER:DRAW-BEZIER-DESIGN*) {7FA600D54CFB}> CLIM:MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> CLIM:SHEET = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> SB-DEBUG::MORE = (:INK #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> :LINE-THICKNESS 2) 17: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-SHEET-MEDIUM-BOUND (T T CLIM:PERMANENT-MEDIUM-SHEET-OUTPUT-MIXIN)) #<CLOSURE (LABELS #:G6 :IN CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS) {7FA600D54C2B}> #<unused a.. Locals: CLIM-INTERNALS::CONTINUATION = #<CLOSURE (LABELS #:G6 :IN CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS) {7FA600D54C2B}> CLIM:SHEET = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 18: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS (CLIM:SHEET T)) #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN MCCLIM-BEZIER:D.. Locals: CLIM-INTERNALS::FUNC = #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN MCCLIM-BEZIER:DRAW-BEZIER-DESIGN*) {7FA600D54CFB}> CLIM:SHEET = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> SB-DEBUG::MORE = (:INK #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> :LINE-THICKNESS 2) 19: (MCCLIM-BEZIER:DRAW-BEZIER-DESIGN* #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> :INK #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> :.. Locals: DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> SHEET = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> SB-DEBUG::MORE = (:INK #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> :LINE-THICKNESS 2) 20: ((:METHOD CLIM:DRAW-DESIGN (T MCCLIM-BEZIER:BEZIER-DESIGN)) #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> :INK #<CLIM-INTERNALS::NAME.. Locals: CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> CLIM:MEDIUM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> SB-DEBUG::MORE = (:INK #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> :LINE-THICKNESS 2) 21: ((SB-PCL::EMF CLIM:DRAW-DESIGN) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> :INK #<CLIM-INTER.. Locals: SB-PCL::.ARG0. = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> SB-PCL::.ARG1. = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> SB-PCL::.KEYARGS-START. = 0 SB-PCL::.VALID-KEYS. = T SB-PCL::EFFECTIVE-METHOD-GENSYM-0 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM:DRAW-DESIGN (T MCCLIM-BEZIER:BEZIER-DESIGN))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) SB-C::X = 4 SB-DEBUG::MORE = (:INK #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> :LINE-THICKNESS 2) 22: ((LABELS CLOUSEAU::DRAW-ARC-ARROW :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Apps/Clouseau/src/presentations.lisp") #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSE.. Locals: CLIM:DESIGN = #<MCCLIM-BEZIER:BEZIER-CURVE {1024013E23}> CLOUSEAU::FROM = #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> CLOUSEAU::INK = #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> STREAM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> CLOUSEAU::TO = #<CLIM:STANDARD-PRESENTATION 653.0:1005.0,214467.0:214483.4 CLOUSEAU:INSPECTED-CLASS {101C0E6E33}> CLOUSEAU::X1 = 16.0 CLOUSEAU::X1#1 = 16.0 CLOUSEAU::X2 = 653.0 CLOUSEAU::X2#1 = 653.0 CLOUSEAU::Y1 = 19.0 CLOUSEAU::Y1#1 = 19.0 CLOUSEAU::Y2 = 214467.0 CLOUSEAU::Y2#1 = 214467.0 23: ((LAMBDA (CLOUSEAU::I CLOUSEAU::OTHER-PRESENTATION) :IN CLIM-INTERNALS::%HIGHLIGHT-PRESENTATION) 0 #<CLIM:STANDARD-PRESENTATION 653.0:1005.0,214467.0:214483.4 CLOUSEAU:INSPECTED-CLASS {101C0E6E33}>) Locals: CLOUSEAU::I = 0 CLOUSEAU::INK = #<CLIM-INTERNALS::NAMED-COLOR "Contrasting1"> CLOUSEAU::OTHER-PRESENTATION = #<CLIM:STANDARD-PRESENTATION 653.0:1005.0,214467.0:214483.4 CLOUSEAU:INSPECTED-CLASS {101C0E6E33}> CLOUSEAU::RECORD = #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> STREAM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 24: ((LAMBDA (CLOUSEAU::OTHER) :IN CLOUSEAU::MAP-OTHER-OCCURRENCES) #<CLIM:STANDARD-PRESENTATION 653.0:1005.0,214467.0:214483.4 CLOUSEAU:INSPECTED-CLASS {101C0E6E33}>) Locals: COUNT = 10 FUNCTION = #<CLOSURE (LAMBDA (CLOUSEAU::I CLOUSEAU::OTHER-PRESENTATION) :IN CLIM-INTERNALS::%HIGHLIGHT-PRESENTATION) {1024012DBB}> CLOUSEAU::I = 0 CLOUSEAU::OTHER = #<CLIM:STANDARD-PRESENTATION 653.0:1005.0,214467.0:214483.4 CLOUSEAU:INSPECTED-CLASS {101C0E6E33}> CLIM:PRESENTATION = #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> 25: (SB-KERNEL:%MAP-FOR-EFFECT-ARITY-1 #<CLOSURE (LAMBDA (CLOUSEAU::OTHER) :IN CLOUSEAU::MAP-OTHER-OCCURRENCES) {1024012DFB}> (#<CLIM:STANDARD-PRESENTATION 653.0:1005.0,214467.0:214483.4 CLOUSEAU:INSPECTE.. Locals: SB-IMPL::FUN = #<CLOSURE (LAMBDA (CLOUSEAU::OTHER) :IN CLOUSEAU::MAP-OTHER-OCCURRENCES) {1024012DFB}> #:SEQUENCE0 = (#<CLIM:STANDARD-PRESENTATION 653.0:1005.0,214467.0:214483.4 CLOUSEAU:INSPECTED-CLASS {101C0E6E33}> #<CLIM:STANDARD-PRESENTATION 4.0:6892.0,4.0:214445.89 CLOUSEAU:INSPECTED-CLASS {10107C8813}> ..) SB-C::THING#3 = #<CLOSURE (LAMBDA (CLOUSEAU::OTHER) :IN CLOUSEAU::MAP-OTHER-OCCURRENCES) {1024012DFB}> 26: ((LABELS CLOUSEAU::MAP-OTHER-OCCURRENCES :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Apps/Clouseau/src/presentations.lisp") #<CLOSURE (LAMBDA (CLOUSEAU::I CLOU.. Locals: #:.DEFAULTING-TEMP. = 10 COUNT = 10 FUNCTION = #<CLOSURE (LAMBDA (CLOUSEAU::I CLOUSEAU::OTHER-PRESENTATION) :IN CLIM-INTERNALS::%HIGHLIGHT-PRESENTATION) {1024012DBB}> CLOUSEAU::I = 0 CLOUSEAU::OCCURRENCES = (#<CLIM:STANDARD-PRESENTATION 653.0:1005.0,214467.0:214483.4 CLOUSEAU:INSPECTED-CLASS {101C0E6E33}> #<CLIM:STANDARD-PRESENTATION 4.0:6892.0,4.0:214445.89 CLOUSEAU:INSPECTED-CLASS {10107C8813}> ..) CLIM:PRESENTATION = #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> 27: ((:METHOD CLIM-INTERNALS::%HIGHLIGHT-PRESENTATION :AFTER (CLOUSEAU:INSPECTED-OBJECT T T T (EQL :HIGHLIGHT))) #<CLOUSEAU:INSPECTED-CLASS {1001E8C0C3}> CLOUSEAU:INSPECTED-CLASS #<CLIM:STANDARD-PRESENTAT.. Locals: COUNT = 10 #:G98 = 10 CLOUSEAU::HIGHLIGHTP = T CLOUSEAU::HIGHLIGHTP#1 = T #:MASSAGED-TYPE32 = CLOUSEAU:INSPECTED-OBJECT CLOUSEAU::OMITTED = -3 CLOUSEAU::OMITTED#1 = -3 CLOUSEAU::RECORD = #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> STREAM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> TYPE = CLOUSEAU:INSPECTED-CLASS CLIM-INTERNALS::TYPE-KEY = #<CLOUSEAU:INSPECTED-CLASS {1001E8C0C3}> 28: ((SB-PCL::EMF CLIM-INTERNALS::%HIGHLIGHT-PRESENTATION) #<unused argument> #<unused argument> #<CLOUSEAU:INSPECTED-CLASS {1001E8C0C3}> CLOUSEAU:INSPECTED-CLASS #<CLIM:STANDARD-PRESENTATION 16.0:140.0,1.. Locals: SB-PCL::.ARG0. = #<CLOUSEAU:INSPECTED-CLASS {1001E8C0C3}> SB-PCL::.ARG1. = CLOUSEAU:INSPECTED-CLASS SB-PCL::.ARG2. = #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> SB-PCL::.ARG3. = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> SB-PCL::.ARG4. = :HIGHLIGHT SB-PCL::EFFECTIVE-METHOD-GENSYM-0 = NIL SB-PCL::EFFECTIVE-METHOD-GENSYM-1 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM-INTERNALS::%HIGHLIGHT-PRESENTATION (T T T T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) SB-PCL::EFFECTIVE-METHOD-GENSYM-2 = (#S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM-INTERNALS::%HIGHLIGHT-PRESENTATION :AFTER #) {53C2F07B}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5))) SB-PCL::EMF#1 = #S(SB-PCL::FAST-METHOD-CALL ..) #:N-LIST2 = NIL 29: ((LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2. SB-PCL::.ARG3. SB-PCL::.ARG4.)) #<CLOUSEAU:INSPECTED-CLASS {1001E8C0C3}> CLOUSEAU:INSPECTED-CLASS #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.. Locals: SB-PCL::.ARG0. = #<CLOUSEAU:INSPECTED-CLASS {1001E8C0C3}> SB-PCL::.ARG1. = CLOUSEAU:INSPECTED-CLASS SB-PCL::.ARG2. = #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> SB-PCL::.ARG3. = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> SB-PCL::.ARG4. = :HIGHLIGHT SB-PCL::CACHE = #<SB-PCL::CACHE 2 keys, value, 12/32 lines (LF 37.5%), depth 0/3 {1001A9B173}> SB-C::THING = #<CLOSURE (LAMBDA (&REST SB-PCL::ARGS) :IN SB-PCL::MAKE-CACHING-DFUN) {1001A9B15B}> 30: ((FLET "CONTINUATION0" :IN CLIM-INTERNALS::HIGHLIGHT-PRESENTATION-1) #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}>) Locals: #:ARG1 = CLOUSEAU:INSPECTED-CLASS CLIM:PRESENTATION = #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> CLIM-INTERNALS::STATE = :HIGHLIGHT STREAM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 31: ((:METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<CLOSURE (FLET "CONTINUATION0" :IN CLIM.. Locals: CLIM-INTERNALS::CONTINUATION = #<CLOSURE (FLET "CONTINUATION0" :IN CLIM-INTERNALS::HIGHLIGHT-PRESENTATION-1) {7FA600D55F3B}> CLIM-INTERNALS::DRAW = T #:G10 = T #:G12 = T #:NEW1 = T #:NEW1#1 = NIL CLIM-INTERNALS::RECORD = NIL STREAM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #:STREAM11 = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #:STREAM9 = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 32: ((FLET "GCONTINUATION2" :IN CLIM-INTERNALS::HIGHLIGHT-PRESENTATION-1) #<unused argument>) Locals: STREAM = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 33: ((FLET CLIM-INTERNALS::GRAPHICS-OP :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS) #<unused argument>) Locals: CLIM-INTERNALS::CONTINUATION = #<CLOSURE (FLET "GCONTINUATION2" :IN CLIM-INTERNALS::HIGHLIGHT-PRESENTATION-1) {7FA600D55F1B}> CLIM:SHEET = #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 34: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<CLOSURE (FLET CLIM-INTERNALS::GRA.. Locals: #:.DEFAULTING-TEMP. = NIL #:.DEFAULTING-TEMP.#1 = NIL #:.DEFAULTING-TEMP.#2 = NIL #:.DEFAULTING-TEMP.#3 = NIL #:.DEFAULTING-TEMP.#4 = NIL #:.DEFAULTING-TEMP.#5 = NIL #:.DEFAULTING-TEMP.#6 = NIL #:.DEFAULTING-TEMP.#7 = NIL #:.DEFAULTING-TEMP.#8 = NIL #:.DEFAULTING-TEMP.#9 = NIL #:.DEFAULTING-TEMP.#10 = NIL #:.DEFAULTING-TEMP.#11 = NIL #:.DEFAULTING-TEMP.#12 = NIL CLIM-INTERNALS::CHANGED-LINE-STYLE = NIL CLIM-INTERNALS::CHANGED-TEXT-STYLE = NIL CLIM-INTERNALS::CLIPPING-REGION = NIL CLIM-INTERNALS::DASHES-P = NIL CLIM-INTERNALS::FUNC = #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS) {7FA600D55CFB}> CLIM-INTERNALS::INK = NIL CLIM-INTERNALS::LINE-CAP-SHAPE = NIL CLIM-INTERNALS::LINE-DASHES = NIL CLIM-INTERNALS::LINE-JOINT-SHAPE = NIL CLIM:LINE-STYLE = #<CLIM:STANDARD-LINE-STYLE :UNIT :NORMAL :THICKNESS 1 :JOINT-SHAPE :MITER :CAP-SHAPE :BUTT :DASHES NIL> CLIM:LINE-STYLE-P = NIL CLIM-INTERNALS::LINE-THICKNESS = NIL CLIM-INTERNALS::LINE-UNIT = NIL CLIM:MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #:N-SUPPLIED-26 = NIL #:N-SUPPLIED-27 = NIL #:N-SUPPLIED-28 = NIL #:N-SUPPLIED-29 = NIL #:N-SUPPLIED-30 = NIL #:N-SUPPLIED-31 = NIL CLIM-INTERNALS::OLD-CLIP = #<CLIM-INTERNALS::EVERYWHERE-REGION {1002A827C3}> CLIM-INTERNALS::OLD-INK = #<CLIM-INTERNALS::%FOREGROUND-INK {1002FFD5A3}> CLIM-INTERNALS::OLD-LINE-STYLE = #<CLIM:STANDARD-LINE-STYLE :UNIT :NORMAL :THICKNESS 1 :JOINT-SHAPE :MITER :CAP-SHAPE :BUTT :DASHES NIL> CLIM-INTERNALS::OLD-TEXT-STYLE = #<CLIM:STANDARD-TEXT-STYLE :SANS-SERIF :ROMAN :NORMAL> CLIM-INTERNALS::OLD-TRANSFORM = #<CLIM-INTERNALS::STANDARD-IDENTITY-TRANSFORMATION {1002C9CB23}> CLIM-INTERNALS::ORIG-MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> CLIM-INTERNALS::TEXT-FACE = NIL CLIM-INTERNALS::TEXT-FACE-P = NIL CLIM-INTERNALS::TEXT-FAMILY = NIL CLIM-INTERNALS::TEXT-FAMILY-P = NIL CLIM:TEXT-SIZE = NIL CLIM-INTERNALS::TEXT-SIZE-P = NIL CLIM:TEXT-STYLE = #<CLIM:STANDARD-TEXT-STYLE :SANS-SERIF :ROMAN :NORMAL> CLIM:TEXT-STYLE-P = NIL CLIM:TRANSFORMATION = NIL 35: ((SB-PCL::EMF CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL) #<unused argument> #<unused argument> #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<CLOSURE (.. Locals: SB-PCL::.ARG0. = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> SB-PCL::.ARG1. = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> SB-PCL::.ARG2. = #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS) {7FA600D55CFB}> SB-PCL::.KEYARGS-START. = 0 SB-PCL::.VALID-KEYS. = T SB-PCL::EFFECTIVE-METHOD-GENSYM-0 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T))> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3 . T)) SB-C::X = 0 SB-DEBUG::MORE = NIL 36: ((:METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS (CLIM:MEDIUM T)) #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS) {7FA600.. Locals: CLIM-INTERNALS::FUNC = #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS) {7FA600D55CFB}> CLIM:MEDIUM = #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}> SB-DEBUG::MORE = NIL 37: ((LABELS #:G6 :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS) #<CLIM-CLX:CLX-RENDER-MEDIUM {102440FC43}>) 38: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-SHEET-MEDIUM-BOUND (T T CLIM:PERMANENT-MEDIUM-SHEET-OUTPUT-MIXIN)) #<CLOSURE (LABELS #:G6 :IN CLIM:INVOKE-WITH-DRAWING-OPTIONS) {7FA600D55DAB}> #<unused argument>.. 39: ((:METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T)) #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<CLOSURE (FLET "GCONTINUATION2" :IN CLIM-INTERNALS::HIGHLIGHT-PRESENTA.. 40: ((SB-PCL::EMF CLIM:INVOKE-WITH-DRAWING-OPTIONS) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> #<CLOSURE (FLET "GCONTINUATION2" :IN CLIM-IN.. 41: (CLIM-INTERNALS::HIGHLIGHT-PRESENTATION-1 #<CLIM:STANDARD-PRESENTATION 16.0:140.0,19.0:38.068 CLOUSEAU:INSPECTED-CLASS {1001D49823}> #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323.. 42: (CLIM-INTERNALS::FRAME-HIGHLIGHT-AT-POSITION #<CLOUSEAU::INSPECTOR {100CD48CF3}> #<CLIM-CLX::CLX-2840-INSPECTOR-PANE CLOUSEAU::INSPECTOR {101019E323}> 102 27 0 (((CLIM:COMMAND-NAME :COMMAND-TABLE #1=#.. 43: ((:METHOD CLIM-INTERNALS::FRAME-INPUT-CONTEXT-TRACK-POINTER :BEFORE (CLIM:STANDARD-APPLICATION-FRAME T CLIM:OUTPUT-RECORDING-STREAM T)) #<CLOUSEAU::INSPECTOR {100CD48CF3}> (((CLIM:COMMAND-NAME :COMMAN.. 44: ((SB-PCL::EMF CLIM-INTERNALS::FRAME-INPUT-CONTEXT-TRACK-POINTER) #<unused argument> #<unused argument> #<CLOUSEAU::INSPECTOR {100CD48CF3}> (((CLIM:COMMAND-NAME :COMMAND-TABLE #1=#<CLIM:STANDARD-COMMAN.. 45: ((LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2. SB-PCL::.ARG3.)) #<CLOUSEAU::INSPECTOR {100CD48CF3}> (((CLIM:COMMAND-NAME :COMMAND-TABLE #1=#<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {.. 46: (CLIM:HIGHLIGHT-APPLICABLE-PRESENTATION #<CLOUSEAU::INSPECTOR {100CD48CF3}> #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> (((CLIM:COMMAND-NAME :COMMAND-TABLE #1=#<CLIM:STANDA.. 47: (CLIM-INTERNALS::INPUT-CONTEXT-EVENT-HANDLER #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}>) 48: ((:METHOD CLIM:STREAM-READ-GESTURE (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> :TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST #<FUNCTION C.. 49: ((SB-PCL::EMF CLIM:STREAM-READ-GESTURE) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> :TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST #<FUNCTI.. 50: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-basic/extended-streams/stream-input.lisp") #<CLIM-CLX::CLX-2840-INTERACTOR-PANE C.. 51: ((FLET "FORM-FUN-5" :IN CLIM:STREAM-READ-GESTURE)) 52: ((:METHOD CLIM:STREAM-READ-GESTURE :AROUND (CLIM-INTERNALS::DEAD-KEY-MERGING-MIXIN)) #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> :TIMEOUT NIL :INPUT-WAIT-TEST #<FUNCTION CL.. 53: ((:METHOD CLIM:STREAM-READ-GESTURE (DREI:DREI-INPUT-EDITING-MIXIN)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> :TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST #<FUNCTION CLIM-INTERNALS::INPUT-CONTEX.. 54: ((SB-PCL::EMF CLIM:STREAM-READ-GESTURE) #<unused argument> #<unused argument> #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> :TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST #<FUNCTION CLIM-INTERNALS::IN.. 55: (CLIM:READ-GESTURE :STREAM #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> :TIMEOUT NIL :PEEK-P NIL :INPUT-WAIT-TEST NIL :INPUT-WAIT-HANDLER NIL :POINTER-BUTTON-PRESS-HANDLER NIL) 56: (CLIM-INTERNALS::READ-COMPLETION-GESTURE #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> (#\ ) T) 57: (CLIM:COMPLETE-INPUT #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (LAMBDA (CLIM-INTERNALS::SO-FAR CLIM-INTERNALS::MODE) :IN CLIM-INTERNALS::%ACCEPT) {102400AA7B}> :PARTIAL-COMPLETERS (.. 58: ((:METHOD CLIM-INTERNALS::%ACCEPT (CLIM-INTERNALS::|(presentation-type CLIM::COMMAND-NAME)| T T CLIM:TEXTUAL-VIEW)) #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND-NAME)| {1002BDB4C3}> (CLIM:COMMA.. 59: ((SB-PCL::EMF CLIM-INTERNALS::%ACCEPT) #<unused argument> #<unused argument> #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND-NAME)| {1002BDB4C3}> (CLIM:COMMAND-NAME :COMMAND-TABLE #<CLIM:STANDARD-.. 60: ((LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2. SB-PCL::.ARG3. SB-INT:&MORE SB-PCL::.MORE-CONTEXT. SB-PCL::.MORE-COUNT.)) #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND-NAME)| {1002BDB4C3}.. 61: ((FLET "INPUT-CONT22" :IN CLIM:ACCEPT-1)) 62: (CLIM-INTERNALS::INVOKE-HANDLE-EMPTY-INPUT #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (FLET "INPUT-CONT22" :IN CLIM:ACCEPT-1) {7FA600D57ADB}> #<CLOSURE (FLET "HANDLER-CONT23" :IN CLI.. 63: ((LAMBDA (STREAM) :IN CLIM:ACCEPT-1) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}>) 64: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (T T T T T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (LAMBDA (STREAM) :IN CLIM:ACCEPT-1) {1023FFD50B}> #<unused argument> #<unu.. 65: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-core/input-editing.lisp")) 66: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (CLIM:INPUT-EDITING-STREAM T T T T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (LAMBDA (STREAM) :IN CLIM:ACCEPT-1) {1023FFD50B}> .. 67: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-core/input-editing.lisp")) 68: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (LAMBDA (STREAM) :IN CLIM:ACCEPT-1) {1023FFD50B}> #<CLOSURE (LAMBD.. 69: (CLIM:ACCEPT-1 #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> (CLIM:COMMAND-NAME :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {10018BC313}>) :VIEW NIL :DEFAULT NIL :DEFAULT-T.. 70: ((:METHOD CLIM:STREAM-ACCEPT (CLIM:STANDARD-INPUT-EDITING-STREAM T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> (CLIM:COMMAND-NAME :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLIC.. 71: ((SB-PCL::EMF CLIM:STREAM-ACCEPT) #<unused argument> #<unused argument> #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> (CLIM:COMMAND-NAME :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APP.. 72: ((LABELS CLIM-INTERNALS::DO-ACCEPT :IN CLIM:ACCEPT) (:HISTORY NIL :PROMPT NIL :HISTORY NIL)) 73: (CLIM:ACCEPT (CLIM:COMMAND-NAME :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {10018BC313}>) :STREAM #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> :PROMPT NIL :HISTORY NIL) 74: (CLIM:COMMAND-LINE-COMMAND-PARSER #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {10018BC313}> #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}>) 75: ((:METHOD CLIM-INTERNALS::%ACCEPT (CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| T T CLIM:TEXTUAL-VIEW)) #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| {1002BDB3D3}> (CLIM:COMMAND :COMMAN.. 76: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Libraries/Drei/input-editor.lisp")) 77: ((:METHOD CLIM-INTERNALS::%ACCEPT :AROUND (CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| T DREI:DREI-INPUT-EDITING-MIXIN T)) #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| {1002BDB3D3}> (.. 78: ((LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-PCL::.ARG2. SB-PCL::.ARG3. SB-INT:&MORE SB-PCL::.MORE-CONTEXT. SB-PCL::.MORE-COUNT.)) #<CLIM-INTERNALS::|(presentation-type CLIM::COMMAND)| {1002BDB3D3}> (CL.. 79: ((FLET "INPUT-CONT22" :IN CLIM:ACCEPT-1)) 80: (CLIM-INTERNALS::INVOKE-HANDLE-EMPTY-INPUT #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (FLET "INPUT-CONT22" :IN CLIM:ACCEPT-1) {7FA600D59A2B}> #<CLOSURE (FLET "HANDLER-CONT23" :IN CLI.. 81: ((LAMBDA (STREAM) :IN CLIM:ACCEPT-1) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}>) 82: (CLIM-INTERNALS::INPUT-EDITING-RESCAN-LOOP #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (LAMBDA (STREAM) :IN CLIM:ACCEPT-1) {1023FCEC7B}>) 83: ((LAMBDA (CLIM-INTERNALS::EDITING-STREAM) :IN CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}>) 84: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (T T T T T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (LAMBDA (CLIM-INTERNALS::EDITING-STREAM) :IN CLIM-INTERNALS::INVOKE-WITH-I.. 85: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-core/input-editing.lisp")) 86: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (CLIM:INPUT-EDITING-STREAM T T T T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (LAMBDA (CLIM-INTERNALS::EDITING-STREAM) :IN CLIM-.. 87: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-core/input-editing.lisp")) 88: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1023FCEE63}> #<CLOSURE (LAMBDA (CLIM-INTERNALS::EDITING-STREAM) :IN CLIM-INTERNALS::INVOK.. 89: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (CLIM:CLIM-STREAM-PANE T T T T)) #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> #<CLOSURE (LAMBDA (STREAM) :IN CLIM:ACCEPT-.. 90: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-core/input-editing.lisp")) 91: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> #<CLOSURE (LAMBDA (STREAM) :IN CLIM:ACCEPT-1) {1023FCEC.. 92: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-core/input-editing.lisp")) 93: ((:METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (CLIM:EXTENDED-OUTPUT-STREAM T T T T)) #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> #<CLOSURE (LAMBDA (STREAM) :I.. 94: (CLIM:ACCEPT-1 #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> (CLIM:COMMAND :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {10018BC313}>) :VIEW NIL :DEFAUL.. 95: ((:METHOD CLIM:STREAM-ACCEPT (CLIM:STANDARD-EXTENDED-INPUT-STREAM T)) #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> (CLIM:COMMAND :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE.. 96: ((SB-PCL::EMF CLIM:STREAM-ACCEPT) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> (CLIM:COMMAND :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TAB.. 97: ((LABELS CLIM-INTERNALS::DO-ACCEPT :IN CLIM:ACCEPT) (:DEFAULT-TYPE CLIM-INTERNALS::NULL-COMMAND :PROMPT NIL :DEFAULT (CLIM-INTERNALS::COM-NULL-COMMAND) ...)) 98: (CLIM:ACCEPT (CLIM:COMMAND :COMMAND-TABLE #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {10018BC313}>) :STREAM #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> :PROMPT NIL.. 99: ((FLET "FORM-FUN-11" :IN CLIM:READ-COMMAND)) 100: (CLIM:READ-COMMAND #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {10018BC313}> :STREAM #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> :COMMAND-PARSER NIL :COMMAND-UNPARS.. 101: ((FLET "FORM-FUN-8" :IN CLIM:READ-COMMAND-USING-KEYSTROKES)) 102: (CLIM:READ-COMMAND-USING-KEYSTROKES #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {10018BC313}> ((:KEYBOARD #\l 1024) (:KEYBOARD #\i 512)) :STREAM #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::.. 103: (CLIM:READ-COMMAND #<CLIM:STANDARD-COMMAND-TABLE CLOUSEAU::APPLICATION {10018BC313}> :STREAM #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}> :COMMAND-PARSER NIL :COMMAND-UNPARS.. 104: ((:METHOD CLIM:READ-FRAME-COMMAND (CLIM:APPLICATION-FRAME)) #<CLOUSEAU::INSPECTOR {100CD48CF3}> :STREAM #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}>) [fast-method] 105: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-core/frames.lisp")) 106: ((:METHOD CLIM:READ-FRAME-COMMAND :AROUND (CLIM:APPLICATION-FRAME)) #<CLOUSEAU::INSPECTOR {100CD48CF3}> :STREAM #<CLIM-CLX::CLX-2840-INTERACTOR-PANE CLOUSEAU::INTERACTOR {1010286113}>) [fast-method] 107: ((FLET CLIM-INTERNALS::EXECUTE-COMMAND :IN CLIM:DEFAULT-FRAME-TOP-LEVEL)) 108: ((:METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<CLOUSEAU::INSPECTOR {100CD48CF3}> :COMMAND-PARSER CLIM:COMMAND-LINE-COMMAND-PARSER :COMMAND-UNPARSER CLIM:COMMAND-LINE-COMMAND-UNPARS.. 109: ((SB-PCL::EMF CLIM:DEFAULT-FRAME-TOP-LEVEL) #<unused argument> #<unused argument> #<CLOUSEAU::INSPECTOR {100CD48CF3}>) 110: ((LAMBDA (#:FRAME-ARG0) :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Apps/Clouseau/src/application.lisp") #<CLOUSEAU::INSPECTOR {100CD48CF3}>) 111: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<CLOUSEAU::INSPECTOR {100CD48CF3}>) [fast-method] 112: ((FLET CALL-NEXT-METHOD :IN "/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/mcclim-20200427-git/Core/clim-core/frames.lisp")) 113: ((FLET "FORM-FUN-52" :IN CLIM:RUN-FRAME-TOP-LEVEL)) 114: ((:METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:APPLICATION-FRAME)) #<CLOUSEAU::INSPECTOR {100CD48CF3}>) [fast-method] 115: ((LABELS CLOUSEAU::RUN :IN CLOUSEAU:INSPECT)) 116: (CLOUSEAU:INSPECT #<FOO ARMY (35 elements) {100CA25153}> :NEW-PROCESS NIL :HANDLE-ERRORS T) 117: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CLOUSEAU:INSPECT *) #<NULL-LEXENV>) 118: (EVAL (CLOUSEAU:INSPECT *)) 119: (SWANK::EVAL-REGION "(clouseau:inspect *) ..) 120: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL)) 121: (SWANK-REPL::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {100CD309FB}>) 122: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL)) 123: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {100CD3098B}>) 124: ((LAMBDA NIL :IN SWANK-REPL::REPL-EVAL)) 125: (SWANK/BACKEND:CALL-WITH-SYNTAX-HOOKS #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {100CD3096B}>) 126: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL) {100CD3096B}>) 127: (SWANK-REPL::REPL-EVAL "(clouseau:inspect *) ..) 128: (SWANK-REPL:LISTENER-EVAL "(clouseau:inspect *) ..) 129: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK-REPL:LISTENER-EVAL "(clouseau:inspect *) ..) 130: (EVAL (SWANK-REPL:LISTENER-EVAL "(clouseau:inspect *) ..) 131: (SWANK:EVAL-FOR-EMACS (SWANK-REPL:LISTENER-EVAL "(clouseau:inspect *) ..) 132: (SWANK::PROCESS-REQUESTS NIL) 133: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 134: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 135: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK {52C3934B}> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100C7A00FB}>) 136: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/phoe/.emacs.d/elpa/26.3/develop/slime-20200530.1629/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK {52C3934B}> #<CLOSURE (LAMBDA NIL :IN.. 137: (SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK {52C3934B}> #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100C7A00FB}>) 138: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)) 139: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {100C6859B3}>)) #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100C7A011B}>) 140: ((FLET "FORM-FUN-5" :IN SWANK::HANDLE-REQUESTS)) 141: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {100B636FA3}> NIL) 142: (SWANK-REPL::REPL-LOOP #<SWANK::MULTITHREADED-CONNECTION {100B636FA3}>) 143: ((LAMBDA NIL :IN SWANK-REPL::SPAWN-REPL-THREAD)) 144: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::SPAWN-REPL-THREAD) {100C7A00DB}>) 145: ((LAMBDA NIL :IN SWANK-REPL::SPAWN-REPL-THREAD)) 146: ((FLET SB-UNIX::BODY :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) 147: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) 148: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE)) 149: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX)) 150: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE) {7FA600D5ED7B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "rep.. 151: (SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE #<SB-THREAD:THREAD "repl-thread" RUNNING {100C799DC3}> NIL #<CLOSURE (LAMBDA NIL :IN SWANK-REPL::SPAWN-REPL-THREAD) {100C799D6B}> NIL) 152: ("foreign function: call_into_lisp") 153: ("foreign function: new_thread_trampoline")
Raw
Annotate
Repaste